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ABSTRACT 


Legacy  software  in  general,  and  in  the  DoD  environment  in  particular,  presents  an 
ever-growing  maintenance  challenge  to  program  managers.  The  software  is  cumbersome, 
written  in  arcane  languages  and  hosted  on  aging  technology  hardware.  One  of  the 
options  that  is  available  to  the  program  manager  to  alleviate  this  problem  is  to  re-engineer 
the  existing  software  product  and  update  it  to  a  newer  language  software  hosted  on 
modem  equipment. 

We  review  existing  research,  select  a  re-engineering  methodology,  develop  an 
implementation  strategy  and  then  perform  a  ‘case  study’  examination  of  this 
methodology  and  strategy.  For  the  case  study,  we  take  a  legacy  system,  the  Navy  satellite 
communications  multiplexer,  the  TD1271B/U  Multiplexer,  examine  its  existing 
documentation,  develop  a  code  analysis  tool,  perform  the  re-engineering  on  one  of  its 
sub-systems,  and  analyze  the  results.  We  provide  observations,  recommendations  and 
conclusions  on  changes,  enhancements  and  pitfalls  to  the  methodology  that  will  be  of 
assistance  in  future  re-engineering  efforts  of  legacy  systems. 
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INTRODUCTION 


A.  BACKGROUND 

One  of  the  more  complex  issues  associated  with  a  software  organization  of 
significant  size  is  the  existence  of  large  amounts  of  legacy  software.  This  software 
typically  was  developed  years  ago,  modified  extensively  by  a  variety  of  programmers, 
and  is  currently  operating  on  obsolete  systems  h^dware.  The  programmers  that  worked 
on  the  various  modifications  have  moved  on  to  new  projects  or  left  the  organization 
entirely.  In  most  instances,  limited  or  no  documentation  updates  have  occurred.  These 
factors  all  build  upon  each  other  until  the  software  is  no  longer  supportable.  The 
hardware  is  typically  old  and  all  of  the  original  processor  reserve  has  been  consumed, 
making  the  hardware  as  unsupportable  as  the  legacy  software  that  runs  on  it.  The  overall 
system  is  so  bad  that  it  has  but  one  single  saving  grace.  It  works. 

The  program  manager  is  charged  with  the  responsibility  of  continuing  to  provide 
the  services  of  the  program  while  watching  his  ability  to  support  the  program  fading. 

This  leaves  the  program  manager  few  options. 

One  option  is  to  live  with  the  system  as  it  exists  and  continue  to  'Band- Aid'  any 
problems  as  best  one  can.  This  tends  to  be  an  expedient  answer  early  in  the  life  of  the 
program,  but  sooner  or  later,  this  will  no  longer  be  a  viable  option.  At  some  point  in  time 
the  program  manager  will  not  be  able  to  continue  to  support  this  legacy  code  due  to  ’ 
physical  constraints  or  expense. 

A  second  option  is  to  completely  replace  the  existing  system.  This  involves 
reviewing  the  current  program  requirements  and  documentation,  as  well  as  the 
organization  operations  and  goals,  and  then  to  factor  in  those  enhancements  that  may 
have  forced  this  change  in  the  first  place.  Based  upon  this  review,  a  new  set  of 
requirements  are  generated.  From  these  new  program  requirements,  the  program 
manager  will  need  to  select  hardware,  programming  language(s),  design  architecture,  and 
finally  implement  the  software.  This  is  then  followed  by  a  training  curve  to  allow  the 
operator  to  leam  the  new  system.  This  approach  has  several  drawbacks.  The  first  is 
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visually  a  lack  of  current  documentation  to  start  the  review  from.  It  is  commonplace  for 
organizations  to  try  to  limit  their  maintenance  costs  at  the  expense  of  the  quality 
documentation  updates.  Another  problem  are  the  'hidden'  enhancements;  functions  that 
are  routinely  use  by  operators,  but  are  not  documented  as  requirements  or  options  even  in 
well  maintained  documentation.  A  third  is  the  amount  of  time  needed  to  implement  a  full 
development.  And,  of  course,  there  is  the  cost.  Often  for  large  systems  the  costs  of  a  full 
development  run  hundreds  of  thousands  of  dollars,  and  it  is  not  unknown  for  a  single 
program's  development  to  cost  millions  of  dollars. 

A  third  option  is  to  scrap  everything  except  for  the  working  code  and  perform  an 
in-depth  analysis  on  the  code  to  extract  the  requirements.  This  will  tell  the  analyst  what 
the  code  is  actually  doing.  To  this  must  be  added  the  additional  requirements  not 
currently  implemented.  The  state  of  the  legacy  code  can  be  a  drawback  to  this  method. 
The  success  of  this  method  is  dependent  upon  the  standards  and  practices  used  while 
maintaining  the  code.  If  the  code  was  maintained  by  a  series  of  programmers,  each  with 
their  own  standards  and  practices,  the  analyst  may  find  extracting  the  information  to  be 
quite  a  challenge  and  extremely  time  consuming. 

The  fourth  option  is  a  combination  of  the  last  two,  extracting  the  best  features  of 
each  of  the  two  options  to  limit  the  cost  and  time  associated  with  updating  the  system. 
This  is  implemented  by  performing  a  code  review  and  using  the  existing  documentation 
as  a  guide  to  the  software's  basic  architecture.  This  combination  of  methods  reduces  the 
amount  of  time  required  to  perform  the  code  analysis,  while  providing  a  quality 
requirements  trace. 

Each  of  these  options  has  it's  own  advantages  and  drawbacks.  Early  in  the  life 
cycle  of  a  software  system  it  is  fairly  inexpensive  to  correct  and  fix  an  immediate 
problem.  As  more  changes  are  made  it  becomes  more  expensive  to  correct  defects  or 
make  changes.  It  is  estimated  that  in  a  large  data  processing  shop,  70  to  80  percent  of  the 
budget  is  consumed  by  maintenance  of  legacy  programs  [40].  Eventually  the  legacy 
system  will  need  to  be  modernized. 
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When  planning  the  modernization  of  a  computerized  information  processing 
system,  there  are  two  basic  items  to  consider:  the  hardware  and  the  software  that 
comprise  the  system.  In  the  normal  course  of  events  finding  a  new  target  platform  is  the 
easier  process.  The  speed,  power,  and  memory  capacities  of  computer  hardware  have 
been  increasing;  while  hardware  size  and  costs  have  been  steadily  falling.  Replacing  the 
software  itself  is  another  question.  As  the  costs  of  hardware  have  fallen,  the  costs  of 
software  development  have  been  rising. 

This  contrast  of  costs,  cheap  hardware  and  expensive  software  development,  leads 
the  program  manager  to  look  at  ways  of  lowering  the  cost  of  the  software  while  updating 
the  hardware  platform.  The  first  approach  would  be  to  take  the  working  software  and 
port  it  to  a  new,  more  powerful  platform.  This  can  be  done  in  limited  circumstances,  but 
he  will  normally  be  restricted  to  remaining  within  the  existing  family  of  processors  (i.e. 
going  from  a  Motorola  68030  to  a  Motorola  68040).  In  the  general  case,  he  will  run  into 
the  problem  of  incompatibility.  The  existing  legacy  software  will  not  run  on  the 
processor  in  the  new  platform.  This  places  the  program  manager  at  the  crossroads  noted 
above:  which  of  the  four  options  is  best  for  the  project? 

In  this  thesis  we  will  examine  the  ‘option  four’  method  of  modernization,  that  of 
utilizing  both  the  existing  code  and  documentation  to  develop  a  new  baseline  program 
hosted  on  a  more  modem  hardware  platform;  the  process  of  Re-Engineering. 

B.  RE-ENGINEERING 

There  are  several  definitions  for  re-engineering  in  the  literature  today  [41]  as 
described  in  the  following: 

•  "Software  reengineering  is  any  activity  that  (1)  improves  one's  understanding 
of  software,  or  (2)  prepares  or  improves  the  software  itself,  usually  of  increased 
maintainability,  reusability,  or  evolvability". 

•  "The  process  of  modifying  the  internal  mechanisms  of  a  system  or  program 
the  data  stractures  of  a  system  or  program  without  changing  its  functionality." 
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•  "The  examination  and  alteration  of  a  subject  system  to  reconstitute  it  in  a  new 
form  and  subsequent  implementations  of  that  form.” 

•  "Re-engineering  changes  the  underlying  technology  of  a  system  without 
affecting  the  overall  function,  while  reverse  engineering  is  the  backward 
engineering  of  a  system  to  the  specification  stage. ...  Re-engineering  ...  is  the  first 
step  toward  reverse  engineering" 

As  can  be  seen  from  these  quotes,  the  terminology  of  the  process  is  not  clearly 
defined.  Some  believe  that  Re-engineering  is  the  beginning  of  the  Reverse  Engineering 
process,  other  that  Reverse  Engineering  is  the  beginning  of  the  Re-engineering  process. 
For  our  purpose  within  this  thesis,  we  'svill  look  upon  reverse  engineering  as  the 
systematic  review  and  analysis  of  existing  code  to  establish  an  information  base  from 
which  to  re-implement  the  system  i.e.,  the  first  step  in  the  re-engineering  process. 

Even  within  these  somewhat  conflicting  terms,  there  are  levels  of  re-engineering. 
If  the  only  requirement  is  to  “copy”  the  existing  system  onto  a  new  platform,  it  will  only 
be  necessary  to  extract  the  architecture  from  the  existing  code  and  documentation  before 
you  can  re-implement  the  same  architecture  in  a  new  environment.  If  you  want  to  update 
the  architecture,  then  you  will  need  to  extract  up  to  the  design  level  before  re-coding  can 
start.  Depending  on  the  level  of  re-design  you  wish  to  implement  you  will  need  to  extract 
to  one  level  higher  to  allow  a  baseline  for  forward  engineering  at  the  level  you  want  to 
implement. 

C.  OUR  THESIS 

For  our  thesis  we  selected  a  re-engineering  methodology  from  existing  research 
that  we  thought  had  the  best  application  to  legacy  systems.  We  then  examined  this 
methodology  of  re-engineering  by  performing  a  case  study.  We  took  a  legacy  system, 
examined  the  existing  documentation,  performed  the  re-engineering  on  one  of  it’s  sub¬ 
systems  and  then  analyzed  the  results.  Based  on  this  analysis  and  other  observations  we 
will  recommend  modifications  to  the  methodology  that  will  assist  in  future  re-engineering 
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efforts.  Our  legacy  code  for  this  procedure  is  a  Navy  satellite  communications 
multiplexer:  the  TD1271B/U  Multiplexer. 
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II.  TD1271B/U  MULTIPLEXER 


A.  BACKGROUND 

Until  the  space  age,  the  high  frequency  (HF)  spectram  was  the  only  means  of 
passing  messages  over  long  distances  by  radio.  Although  other  frequency  spectrum 
radios  were  available,  their  characteristics  limited  their  use  to  ‘line-of-sight’  operations  or 
limited  data  rates.  With  the  space  age  came  the  ability  to  place  an  Ultra  High  Frequency 
(UHF)  radio  repeater  in  a  geosynchronous  orbit.  By  placing  a  transmitting  station  high 
above  the  earth,  it’s  ‘line-of-sight’  earth  coverage  was  greatly  expanded.  The 
characteristics  of  the  UHF  Satellite  Communications  lended  itself  well  to  the  needs  of  the 
Navy.  It  provided  dependable  over-the-horizon  communications  capability  at  accelerated 
data  rates.  The  high  data  rates  allow  the  transfer  of  data  and  voice.  As  the  capabilities 
became  more  developed  and  terminals  became  more  prolific,  time  lags  and  data  delays 
became  more  regular.  System  throughput  began  to  suffer.  This  left  the  Navy  with  a 
limited  number  of  options.  One  was  to  reduce  the  number  of  users  and  the  amount  of 
data  they  were  sending.  This  was  an  extremely  unpopular  option  to  the  Fleet.  They  had 
grown  to  depend  on  the  types  and  levels  of  data  being  supplied,  and  their  effectiveness 
would  suffer  if  any  of  the  data  were  discontinued.  The  second  option  was  to  acquire 
more  UHF  channels.  This  was  not  a  viable  option  either.  The  commercial  world  was 
rapidly  expanding  into  the  UHF  spectrum,  and  lobbying  congress  to  decrease  the  number 
of  channels  reserved  for  military  use  and  sell  them  to  commercial  interests.  The  only 
option  left  was  to  find  ways  to  utilize  the  existing  channels  more  efficiently.  To  meet  the 
need  for  more  efficient  usage  of  the  UHF  channels  the  Navy  developed  the  TD-1271B/U 
Multiplexer. 

The  basic  philosophy  behind  the  TD1271B/U  Multiplexer,  or  MUX,  is  to  use 
Timed  Division  Multiple  Access  (TDMA)  principals  to  integrated  multiple  nets,  each 
operating  on  an  independent  channel,  onto  a  single  channel.  By  multiplexing  several 
channels  onto  a  single  channel  more  data  transmission  path  options  become  available. 


7 


B.  TIME  DEVISION  MULTIPLE  ACCESS  (TDMA) 


In  TDMA,  data  streams  at  moderate  to  slow  data  rates  are  input  via  baseband  data 
ports  and  buffered.  At  a  point  in  time,  predefined  for  each  data  port  relative  to  a  time 
marker,  this  data  is  transmitted  out  at  a  data  rate  that  is  significantly  faster  that  the  input 
data  rates.  While  one  baseband  port’s  data  is  being  burst  out  to  the  satellite,  the  other 
ports  data  streams  are  being  buffered,  awaiting  their  burst  opportunity.  Using  appropriate 
bursting  speeds,  none  of  the  baseband  units  will  suffer  any  loss  of  continuity  in  their  data. 
Each  will  transmit  and  receive  data  just  as  if  on  a  dedicated  channel,  without  realizing  the 
data  was  multiplexed.  This  concept  is  illustrated  in  Figure  2-1 .  The  key  to  this  process  is 
being  able  to  transmit  at  a  faster  data  rate  than  all  of  the  baseband  ports  data  rates 
combined.  The  elapse  time  between  the  start  of  one  timing  mark  and  the  beginning  of  the 
next  timing  mark  is  generally  referred  to  as  a  frame.  The  period  of  time  allocated  for  a 
transmission  burst  is  often  referred  to  as  a  time  slot.  Depending  on  the  particular  protocol 
for  the  system,  the  TDMA  Frame  may  contain  a  series  of  time  slots  with  equal  time 
periods  or  may  have  time  slots  with  varying  time  periods. 

C.  TD1271B/U  MULTIPLEXER 

In  the  TD1271B/U  Multiplexer  (MUX)  operating  in  the  TDMA-1  25  kHz  mode,  a 
frame  is  defined  as  a  period  of  time  equaling  1 .38666  seconds.'  This  frame  not  only  has 
varying  time  slot  periods,  but  is  re-configurable  based  on  users  needs.  The  allocation  of 
time  slots  is  determined  by  the  definition  of  a  three  digit  (hex)  Frame  Format  code.  Each 
of  the  digits  defines  the  configuration  of  one  of  the  three  user  segments  contained  in  the 
frame.  A  typical  MUX  frame  is  diagrammed  in  Figure  2-2. 

The  MUX  waveform  accommodates  multiple  input/output  (I/O)  bit  rates  and 
radio  frequency  (RF)  symbol  burst  rates,  as  well  as  dynamic  assignment  of  users  between 
channels.  Operation  of  the  MUX  waveform  is  transparent  to  the  user  baseband 
equipment,  except  for  TDMA  frame-time  delays. 

'  The  TD1271  MUX  is  also  capable  of  a  secondary  waveform  (TDMA-2  or  TDMA-3)  that  utilizes  a  5kHz 
channel.  Discussion  of  this  5  kHz  waveform  is  beyond  the  scope  of  this  thesis. 
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The  MUX  waveform  is  organized  as  a  repetitive  frame  structure  with 
1.386-second  frames,  as  depicted  in  Figure  2-2  (Frame  Type  2  is  depicted^).  Frames  are 
subdivided  into  slots  assigned  for:  (a)  orderwire  communications  [channel  control 
orderwire  (CCOW)  and  return  channel  control  orderwire  (RCCOW)];  (b)  system  support 
functions  (range  time  slot  and  link-test  time  slot);  and  (c)  user  segments  A,  B,  and  C. 
User  segments  A,  B,  and  C  comprise  multiple  user  slots.  Each  of  the  5  slot  types  in  the 
MUX  waveform  is  identified  below: 

1  •  CCOW  slot.  The  CCOW  slot  is  used  by  the  channel  controller  to 

broadcast  CCOWs.  One  of  the  20  defined  CCOWs  is  transmitted  by  the 
Channel  Controller  in  each  frame.  The  CCOW  contains  the  information 
required  to  control  operation  of  the  waveform  and  provides  a  tirning  mark 
for  the  frame. 

2.  RCCOW  slot.  The  RCCOW  slot  provides  users  the  opporhmity  to 
send  data,  including  requests  for  access,  to  the  channel  controller. 

3.  Range  slot.  The  range  slot  provides  time  for  users  (including  the 
channel  controller)  to  transmit  and  receive  a  data  burst  for  the  purpose  of 
calculating  the  range  to  the  satellite,  based  on  measured  round-trip  delay 
time. 

4.  Link  test  slot.  The  link  test  slot  provides  time  for  users  (including 
the  channel  controller)  to  transmit  and  receive  a  test  data  stream  to 
determine  the  current  operating  conditions,  based  on  the  measured  bit 
error  ratio  (BER).  The  link  test  slot  is  also  used  to  perform  dedicated 
range  measurements,  when  the  link  test  slot  is  in  an  even-numbered 
receive  frame.  This  is  known  as  an  even  link  test  (ELT)  slot. 


^  In  order  to  support  half  duplex  terminals,  the  MUX  waveform  supports  a  Frame  Type  1  that  moves  the 
‘C’  segment  slots  between  two  halves  of  the  ‘B’  segment.  The  half  duplex  network  would  transmit  in  the 
first  ‘B’  segment  and  receive  in  the  second  ‘B’  segment. 
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5.  User  slot.  User  slots  are  allocated  for  transferring  data  between 
users.  Associated  with  each  user  slot  is  a  specific  baseband  data  rate, 
encoding  schema,  and  burst  rate. 

Each  slot  within  the  MUX  waveform  consists  of  three  elements:  (1)  a  preamble 
for  receiver  carrier,  bit,  and  data  synchronization;  (2)  data;  and  (3)  guard  time  to  avoid 
user-to-user  interference.  The  receiving  equipment  achieves  carrier  and  bit 
synchronization  for  each  slot  in  the  waveform. 

The  MUX  waveform  is  designed  to  operate  on  25-kHz  non-processed  channels  of 
current  and  planned  UHF  SATCOM  satellites. 

The  MUX  accepts  input  from  digital  communications  systems  via  it’s  four 
baseband  data  ports.  The  baseband  data  ports  will  accept  data  at  rates  of  75,  300,  600, 
1200, 2400, 4800,  and  16000  bits  per  second.  In  order  to  maintain  data  integrity. 

Forward  Error  Correction  (FEC)  encoding  is  used.  This  FEC  coding  is  convolutional, 
with  interleaving.  Encoding  rates  of  ‘/a  or  y4  are  used.  The  MUX  will  output  the  data  to 
the  radio  for  transmission  at  one  of  three  burst  rates;  9,600, 19,200  or  32,000  symbols  per 
second.  The  interface  between  the  radios  and  the  MUX  is  over  70  MHz  intermediate 
frequency  carrier  lines.  Reception  of  data  is  processed  in  a  similar,  but  reversed,  fashion. 

One  of  the  most  critical  functions  of  the  MUX  in  this  process  is  to  maintain 
consistent  timing  within  the  frame.  This  timing  begins  with  the  reception  of  the  timing 
mark  to  begin  the  frame.  In  the  MUX  system,  all  timing  is  based  on  the  reception  of  the 
Channel  Control  OrderWire  (CCOW).  The  primary  CCOW  is  the  Master  Frame  CCOW 
and  contains  the  current  frame  format  number,  frame  sequence  number,  and 
cryptographic  data  needed  to  define  operations  on  this  channel.  The  Master  Frame  is 
transmitted  every  eight  frames.  Other  CCOWs  are  available  to  direct  net  operations, 
request  data  from  the  various  terminals^  operating  on  the  net  and  maintain  timing 

^  Although  we  are  only  concerned  with  software  and  hardware  of  the  TD1271B/U,  there  are  other  terminals 
that  are  operating  on  nets  with  the  TD1271B/U.  When  discussing  operations  in  general,  we  will  use  the 
term  terminal  to  include  all  of  the  possible  systems  operating  on  a  channel. 
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CCOWs  are  generated  and  broadcast  by  a  specifically  designated  terminal.  Each  channel 
will  only  have  a  single  terminal  generating  CCOWs  at  a  time  (the  Primary  Channel 
Controller  (PCC))  although  other  stations  could  be  designated  as  alternate  controllers 
(ACC). 


Once  the  MUX  has  successfully  received  the  CCOW,  the  next  critical  event  is  to 
calculate  the  terminals  distance  to  the  satellite  in  units  of  time.  The  standard  time  unit  in 
the  MUX  is  the  ‘time  chip’.  There  are  19,200  time  chips  in  one  second.  In  order  for  all 
terminals  on  the  net  to  receive  data  in  the  proper  locations  within  the  frame,  all 
transmissions  are  timed  to  be  correctly  placed  within  the  frame  at  the  satellite.  In  order  to 
insure  this  ‘perfect’  frame  at  the  satellite,  and  by  extension  at  each  receiving  terminal,  the 
distance  to  the  satellite  must  be  known.  This  is  achieved  first  at  power-up  by  sending  a 
ranging  burst  during  the  designated  ranging  slot,  and  updated  periodically  using  the  Even 
Link  Test  (ELT)  slots. 

D.  TD-1271B/U  MULTIPLEXER  DESIGN 

The  basic  TD-1271B/U  installation  comprises  a  TD-1271B/U  multiplexer,  a 
KGV-1 1  encryption  device,  a  radio  transceiver  (a  Navy  WSC-3  pair  is  typical)  and  from 
one  to  four  baseband  user  devices  (ANDVT,  ON- 143  or  teletypewriters  would  be 
typical).  Figure  2-3  provides  a  block  diagram  of  a  basic  TD-1271B/U’s  configuration. 

The  software  in  the  MUX  is  divided  into  three  Computer  Software  Configuration 
Items  (CSCI);  the  System  Control  Processor  (SCP),  the  System  Timing  Processor(STP) 
and  the  Data  Buffer  Processor  (DBP). 

Each  CSCI  has  a  Memory  Program  Unit  (MPU),  an  interface  board,  and  at  least 
one  24  k  byte  Ultra  Violet  Erasable/Programmable  Read  Only  Memory  (UVEPROM) 
board  that  contains  the  executable  program.  The  SCP  CSCI  utilizes  two  UVEPROM 
boards. 
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The  Memory  Program  Unit  (MPU),  hosts  the  Central  Processor  Unit  (CPU),  a 
Motorola  6800,  along  with  the  System  Random  Access  Memory. 


Figure  2-3 

A  Basic  TD-1271B/U  Configuration 
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III.  THE  RE-ENGINEERING  PROCESS 


A.  PROCESS  PHASES 

Re-engineering  begins  with  the  assembly  of  all  resources  of  a  software  system. 
This  includes,  but  is  not  limited  to  the  software  source  code,  design  documents,  software 
development  folders,  test  reports,  software  trouble  reports,  sample  inputs,  sample  outputs, 
and,  if  practical,  interviews  of  the  implementers  and/or  maintainers.  Typically  the  only 
reliable  source  of  information  is  the  software  source  code  and  for  that  reason  re¬ 
engineering  of  an  existing  software  system  starts  at  the  code  level.  The  software 
documentation,  many  times,  are  not  kept  current  with  the  software;  however,  it  can  still 
be  a  useful  source  of  information  and  can  be  used  as  an  engineering  guide.  The  process 
in  which  existing  software  is  transformed  into  a  new  implementation  can  be  described  in 
the  Figure  3-1  [30]. 


Figure  3-1 

The  Re-Engineering  And  Implementation  Process 
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There  are  three  phases  to  the  re-engineering  process.  The  first  phase,  abstraction, 
extracts  the  detailed  design  information  firom  the  documentation  and  the  code.  For  those 
familiar  with  MIL-STD-498,  this  is  analogous  to  creating  a  Software  Design  Document 
fi'om  the  existing  system.  The  second  phase  allows  for  the  modification  of  the  design  by 
adding,  deleting,  or  modifying  requirements.  The  third  phase  is  a  re-implementation  of 
the  system.  The  focus  of  this  thesis  is  the  reverse  engineering  process  that  recovers  the 
design  from  the  old  implementation.  This  methodology  will  be  validated  by  executing 
the  re-implementation  of  the  recovered  design  using  a  different  language  and  different 
processor  than  the  old  implementation. 

1.  Phase  One:  Abstraction 

In  this  phase,  the  documentation  and  code  can  be  used  to  provide  the  information 
needed  to  support  the  re-creation  of  the  system  design.  Since  the  TD-1271 
documentation  has  been  shown  to  be  unreliable,  the  source  code  will  take  precedence  in 
this  phase  with  the  documentation  providing  background  information.  The  products 
developed  during  abstraction  are  as  follows  [30]: 

1 .  Structure  Chart.  This  is  a  hierarchy  of  the  modules  as  extracted  from 
the  program  where  each  node  in  the  chart  corresponds  to  a  procedure  or  function 
in  the  program.  Since  the  goal  of  abstraction  is  to  remove  the  language 
dependencies  from  the  code,  it  is  important  to  treat  library  calls  as  part  of  the  ' 
system  and  include  them  in  the  structure  chart.  The  language  selected  for  the  re¬ 
implementation  phase  may  not  provide  the  same  library  services.  Any  language 
dependent  library  calls  may  need  to  be  manually  re-implemented.  The  structure 
charts  for  this  thesis  are  based  upon  the  structure  charts  identified  in  reference 
[37].  The  structure  charts  provide  a  visual  representation  of  the  software  system 
that  is  useful  in  determining  organization  and  dependencies.  This  information, 
once  derived,  is  used  to  develop  the  structure  charts  for  the  enhanced  system. 
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2-  Module  Description.  This  description  is  a  combination  of  the  module’s 
inputs,  processing,  and  outputs,  with  the  algorithms  and  constraints  identified. 
This  description  is  produced  for  each  module  in  the  structure  chart.  In  addition  to 
a  narrative  of  the  module’s  processing,  a  language  independent  form  using  a 
specification  language  such  as  SPEC  [42]  or  a  Program  Design  Language  (PDL) 
is  used  to  capture  the  requirements  of  the  module.  For  this  documentation  to  be 
useful  it  is  important  to  verify,  through  code  reading,  that  the  supporting 
documentation  is  up-to-date.  A  case  tool  that  allows  this  information  to  be  tagged 
to  each  element  in  a  structure  chart  would  be  very  helpful.  One  of  the  original 
goals  was  to  identify  a  tool  to  preserve  this  information  as  part  of  this  thesis,  but 
due  to  budgetary  considerations  no  tool  was  procured. 

Data  Flow  Diagram.  At  a  module  level  the  data  flow  diagram  shows  the 
flow  of  data  between  the  modules.  Within  the  module  that  the  data  flow  diagram 
is  decomposed,  showing  at  each  successive  decomposition  level  the 
transformations  that  occur.  This  information  is  also  used  to  develop  the 
algorithms  that  need  to  be  documented  when  the  design  is  re-implemented.  These 
algorithms  can  be  described  using  mathematical  notation,  a  Program  Design 
Language,  or  other  notation.  These  algorithm  descriptions  are  added  to  the 
module  description  in  step  2.  The  process  consists  of  constructing  the  DFD  of 
level  i+1  from  level  i.  Each  level  explodes  the  data  into  transforms,  data 
repositories,  and  data  flows  [37].  Data  repositories  will  be  represented  as  boxes, 
data  transforms  as  circles,  and  data  flows  as  connecting  lines  between  transforms 
and  data  repositories.  The  transforms  are  then  used  in  phase  2  to  develop  the 
detailed  design. 

4-  Control  Flow  Diagram.  TTiis  will  identify  the  control  structure  of  the 
program  between  the  modules.  This  information  is  used  to  identify  the  logical 
relationships  between  the  modules,  verses  the  physical  relationship  described  in 
step  1 .  [39]  will  be  used  to  create  this  diagram. 
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5.  State  Transition  Diagram.  This  will  identify  the  states  and  modes  in 
which  the  software  can  reside  and  identify  the  events  that  cause  a  change  in  the 
state  of  the  software  and  the  processing  that  is  to  occur  due  to  the  state  change, 
and  will  identify  the  modules  active  for  each  state.  There  may  be  more  than  one 
state  transition  diagram  depending  upon  the  concurrency  of  the  system.  The 
notation  for  this  diagram  will  follow  those  in  [39]. 

Once  the  design  information  has  been  extracted,  the  resulting  recovered  design  is 
reviewed  for  consistency.  Any  missing  items  of  information  should  be  investigated  and 
added  to  the  recovered  design  [30].  While  it  is  the  goal  of  this  first  phase  to  extract  the 
design  and  leave  behind  the  vestiges  of  the  language  and  platform,  the  design  may  still 
have  an  organizational  structure  that  was  due  to  the  implementation  language  and 
platform.  Before  entering  phase  two,  the  extracted  design  information  can  be  modified  to 
refine  the  design  for  portability.  For  example,  the  TD1271B/U  uses  multiprocessors  with 
serial  communications  between  them  to  perform  the  processing  required.  When  the 
system  is  re-engineered,  it  is  anticipated  that  this  system  will  be  implemented  using  Ada 
tasking  on  a  single  microprocessor.  The  detailed  design  should  be  abstract  enough  to 
make  this  possible. 

2.  Phase  Two 

Phase  one  used  the  supporting  documents  and  the  code  to  extract  the  detailed 
design  information.  This  phase  attempts  to  link  the  detailed  design  information  with  the 
requirements  through  the  use  of  a  requirements  traceability  table.  This  table  binds  the 
modules  with  the  requirements  that  they  partially  or  fully  implement.  This  table  will 
need  to  support  one  to  many  and  many  to  one.  That  is,  one  requirement  may  be  spread 
out  over  one  or  more  modules  and  many  requirements  may  be  identified  with  one 
module.  Depending  upon  the  state  of  the  supporting  documentation  this  can  be  an  easy 
task  or  a  major  effort.  Requirements  are  needed  if  the  system  being  reengineered  is  also 
having  the  requirements  modified  as  well.  Once  the  requirements  have  been  modified, 
the  modules  affected  need  to  be  updated.  It  is  not  unusual  at  this  phase  to  add  and  delete 
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modules  from  phase  one.  This  phase  is  identified  for  completeness  only;  this  thesis  will 
not  attempt  to  construct  a  requirements  traceability  table. 


The  TD1271B/U  was  developed  under  DOD-STD-1679  and  any  re-engineering  of 
the  TD1271B/U  would  use  a  tailored  MIL-STD-498  approach.  The  purpose  of  the  re¬ 
engineering  effort  is  to  develop,  using  the  existing  resources  of  the  project,  those  products 
necessary  to  pass  the  exit  criteria  of  the  detailed  design  phase  and  allow  the  system  to  be 
coded.  The  primary  product  that  is  developed  during  the  detailed  design  phase  is  the 
Software  Design  Document.  When  looking  at  the  data  item  description  (DID)  the 
following  sections  are  used  to  provide  the  programmer  with  the  information  necessary  to 
code  the  system.  From  the  re-engineering  activities  performed  on  the  TD1271B/U  in  the 
three  phases  described  above,  the  following  module  information  will  be  developed: 


Module  Name 
Module  Description 

Constraints,  Limitations,  or  Unusual  Features  in  the  Design 
Special  or  Unique  Algorithm  Description 
Called  by 
Calls 

Triggering  Event  (tasks  only) 

Implicit  Inputs 
Explicit  Inputs 
Implicit  Outputs 
Explicit  Outputs 
Hardware  Dependencies 
Sizing  and  Timing 
Informal  Test  Procedures 
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If  computer  aided  design  tools  were  used  during  phase  two,  such  as  the  Computer- 
Aided  Prototype  System  (CAPS),  much  of  the  information  needed  for  the  SDD  is 
contained  within  the  various  reports  that  the  tools  produce. 


3.  Phase  Three 

At  the  completion  of  phase  two  the  design  of  the  current  system  has  been 
extracted.  Before  starting  the  re-implementation  of  the  system  for  the  new  target 
language  and  hardware,  any  changes  to  the  design  is  done  in  this  phase.  This  could  be  a 
re-organization  to  take  advantage  of  any  special  capabilities  of  the  compiler  or  hardware. 
In  addition,  this  would  be  the  time  to  modify  the  requirements  of  the  system  and  fold 
those  changes  into  the  design.  Upon  completion  of  this  phase  the  design  should  reflect 
the  system  as  wanted  by  the  customer. 

4.  Phase  Four 

The  output  of  phase  three  is  used  in  this  phase.  This  is  the  coding  of  the  extracted 
and  possibly  modified  design.  The  detail  design  is  re-implemented  using  the  desired 
methodology  (i.e.  OOD,  structured  design,  etc.)  in  the  desired  language  for  the  desired 
target  platform.  This  phase  is  executed  in  the  same  manner  as  any  new  development. 
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IV.  THE  CASE  STUDY 


A.  THE  TD1271B/U  MULTIPLEXER  DATA  BUFFERING  PROCESSOR 

The  Data  Buffer  Processor  (DBP)  provides  the  elastic  buffering  required  to  pass 
continuous  data  between  the  Systems  Control  Processor  (SCP)  and  I/O  ports  while 
transmitting  or  receiving  data  in  bursts  over  the  satellite  channel.  The  heart  of  the  DBP 
consists  of  24K  bytes  of  EPROM  containing  the  software  program.  The  program  is  a 
loop  structure  which  sequentially  scans  internal  control  points  and  the  baseband  users  to 
determine  the  actions  is  required.  If,  for  example,  a  user  terminal  has  entered  a  transmit 
request  at  the  baseband  I/O  port,  a  check  is  made  of  the  port  requirements,  the  port  is 
configured  to  receive  data  and  the  transmit  acknowledge  is  sent  to  the  baseband 
device[43].  Figure  4-1  provides  a  block  diagram  of  the  relevant  input  and  output  signals 
to  the  DBP.' 

B.  DBP  INPUT/OUTPUT  SIGNALS 

The  DBP[49]  data  flow  is  described  in  Figure  4-1 .  Figure  4-1  is  a  description  of 
data  and  control  signals  that  are  input  to  or  output  from  the  DBP  [49]. 

C.  THE  RE-ENGINEERING  STRATEGY 

One  of  the  primary  goals  of  this  re-engineering  effort  was  an  attempt  to  use  the 
existing  source  code  to  extract  the  design  of  the  system  and  to  produce  well  designed, 
portable  code.  Ada  was  used  as  the  target  language  during  the  extraction  process.  Since 
this  software  was  originally  written  before  the  advent  of  structured  design,  we  didn’t 
attempt  to  use  an  Object-Oriented  Design  approach,  but  used  a  structured  design 
approach. 


^  This  listing  is  not  complete  for  the  TD1271.  Certain  hardware  control  lines  are  system  dependent  and 
would  not  be  applicable  to  this  re-engineering  effort. 
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Figure  4-1 

Inputs  and  Outputs  To  DBF  Module 


As  outlined  in  Chapter  3,  the  first  phase  of  the  re-engineering  effort  is  to  develop 
Structural  Diagram  s.  Module  Descriptions,  Data  Flow  Diagrams,  Control  Flow 
Diagrams,  and  State  Transition  Diagrams.  The  code  was  used  to  extract  the  structure, 
control  flow,  and  state  transition  diagrams.  The  documentation  was  used  to  develop  the 
module  descriptions,  provide  a  high  level  data-flow  diagram  and  to  verify  the  control 
flow  and  state  transition  diagrams  whenever  possible. 

1.  Code  review 

As  noted  by  T.  Bigerstaff  [10],  a  key  objective  of  design  recovery  is  to  develop 
structures  that  will  enable  a  software  engineer  to  understand  the  program.  Our  first  step 
in  this  process  was  to  identify  and  partition  the  code  into  procedures.  This  proved  to  be  a 
task  of  greater  difficulty  that  we  had  anticipated.  Not  only  were  we  dealing  tvith  a 
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somewhat  cryptic  language,  we  were  also  faced  with  a  coding  style  that  extensively 
utilized  ‘jump’  and  ‘branch’  commands  to  navigate  from  one  set  of  instructions  to 
another.  This  programming  style  was  intended  to  reduce  the  total  size  of  the  code  by 
reusing  existing  code  rather  than  re-writing  it.  Programmers  coding  during  this  period  of 
time  were  highly  praised  if  they  could  reduce  the  length  of  the  overall  program  by  even  a 
few  bytes,  regardless  of  the  long  term  maintenance  problems  created. 

2.  Extracting  the  Structure 

The  first  step  was  to  extract  the  modules  from  the  code.  Modules  were  defined  as 
a  section  of  code  referenced  in  a  Jump  to  Subroutine  (JSR)  or  Branch  to  Subroutine 
(BSR).  Even  Siough  it  was  recognized  early  on  that  this  effort  would  focus  only  on  part 
of  the  TD-1271  system  it  was  important  to  extract  the  structure  of  the  entire  system  to 
identify  the  areas  in  which  the  rest  of  the  re-engineering  effort  would  focus. 

The  code  for  the  three  major  sub-systems  were  examined  and  mapped  using  a 
Microsoft  Excel  spreadsheet  to  record  the  results  (see  Appendix  B  -  Subroutine  Call 
Tree).  It  should  be  noted  that  this  Subroutine  Call  Tree  is  not  complete.  The  TD-1271  is 
not  a  procedural  based  design,  that  is  it  makes  extensive  use  of  GOTO  statements  for 
control  between  subroutines.  The  effort  to  extract  the  subroutine  calls  using  the  JSR/BSR 
opcodes  was  sufficient  to  identify  which  sub-system  to  apply  the  more  rigorous  code 
examination  to.  To  produce  the  Subroutine  Call  Tree  each  file  comprising  the  TD-1271 
was  opened  in  a  word  processor  and  a  search  was  conducted  on  the  words  JSR  and  BSR. 
At  each  occurrence  the  subroutine  containing  the  call  and  the  subroutine  that  was  being 
called  were  entered  into  the  Subroutine  Call  Tree.  Duplicate  entries,  the  same  subroutine 
call  from  the  same  subroutine,  were  not  noted.  The  Subroutine  Call  Tree  contains  1183 
subroutine  calls.  After  examining  the  results  of  this  effort  the  Data  Buffer  Processor  was 
selected  for  further  investigation. 

3.  Extracting  the  Control  Flow 

In  order  to  extract  the  control  flow  from  the  code  it  would  be  necessary  to  have 
some  sort  of  cross  reference  available  to  consult.  There  weren't  any  tools  available  to  do 
this  so  one  was  developed.  A  parser  was  written  in  Ada  using  an  Alsys  host  compiler  for 
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the  IBM-PC.  This  parser  uses  two  passes  to  build  a  cross  reference  for  the  labels  in  the 
source  code  and  a  source  code  listing  with  line  numbers.  The  first  pass  identifies  each 
label  and  the  line  of  code  where  it  is  defined.  The  second  pass  identifies  the  line  number 
of  code  where  each  reference  occurs.  References  to  labels  that  are  not  found  are  reported 
as  errors.  The  only  errors  encountered  were  relative  indexes  based  upon  a  label  (e.g. 
LABEL  1+2).  The  source  code  listing  is  in  Appendix  D  and  the  Cross  Reference  Listing 
is  in  Appendix  E.  There  will  be  references  to  line  numbers  in  the  source  code  from 
Appendix  D  later  on. 

A  detailed  examination  of  the  DBP  code  identified  the  inter-subroutine  control 
flow  and  a  disturbing  software  design  methodology,  or  to  be  more  accurate  -  lack  of  one. 
As  you  can  see  by  the  control  flow  diagram,  Figure  4-2,  the  designers  used  some 
programming  practices  that  made  it  veiy  difficult  to  extract  the  control  flow.  The  first 
difficulty  encountered  was  the  use  of  multiple  return  from  subroutine  (RTS).  Rather  than 
having  one  entrance  and  exit  from  the  subroutine  there  were  multiple  exits.  This  was 
further  complicated  by  the  use  of  GOTO  statements  where  a  JSR  was  used  to  enter  a 
subroutine  and  both  a  RTS  and  a  GOTO  statement  was  used  to  return  (lOlPT  to  10 ILF 
in  Figure  4-2).  There  were  subroutine  calls  where  the  called  subroutine  executed  a 
GOTO  statement  to  pass  control,  not  back  to  the  caller,  but  to  another  routine  (lOlPT  - 
101 LS  -  I02PT  in  Figure  4-2).  There  were  manipulations  of  the  return  stack  to  short 
circuit  the  return  from  a  subroutine  call  (Appendix  D,  line  numbers  1044-1045  and  1099- 
1 100  in  lOlPT  and  repeated  for  the  other  three  channels).  There  are  examples  in  which  a 
routine  has  multiple  entrances  and  exits  (Figure  4-3).  The  way  this  code  was  designed 
made  it  extremely  difficult  to  convert  to  Ada,  and  impossible  to  meet  the  goal  of  having 
code  that  is  well  designed  following  this  conversion.  The  result  was  becoming  as  poorly 
designed  as  the  original.  As  stated  earlier,  this  software  was  designed  prior  to  the 
introduction  of  what  is  now  considered  modem  programming  standards.  Design 
decisions  were  made  based  more  upon  memory  usage  and  execution  speed  than  having  a 
system  that  was  easy  to  maintain. 

The  subroutine  lOlPT  was  examined  for  developing  the  inter-subroutine  control 
flow.  This  was  based  upon  the  conditional  statements  within  the  code.  This  inter- 
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DBP  Control  Flow  Diagram 
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Multiple  Entrances  and  Exits 

subroutine  control  flow  was  found  to  be  as  difficult  to  convert  as  the  intra-subroutine 
control  flow.  The  control  flow  for  subroutine  101 A  can  be  visualized  with  Figure  4-4. 
As  Figure  4-4  depicts,  this  would  be  an  example  of  "spaghetti  code".  In  order  to 
overcome  this  spaghetti  code  problem  it  became  necessary  to  reduce  the  code  to  ‘mini’ 
routines,  adding  ‘jumps’  to  the  end  of  each  code  fragment,  so  each  fragment  would  be  a 
stand  alone  routine.  Each  fragment  could  then  be  moved  at  will  to  try  to  untangle  the 
subroutine’s  control  flow.  It  too  was  far  more  difficult  than  it  was  worth.  The  result  was 
a  subroutine  that  was  poorly  designed. 

4.  Data  Flow 

The  data  was  analyzed  to  attempt  to  produce  a  data  flow  diagram.  The  primary 
data  flow  used  ringed  buffers.  The  declared  buffer  started  at  its  ovm  starting  address  and 
ended  at  the  starting  address  of  the  next  declared  buffer  (e.g.  an  index  pointer  was  set  to 
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the  starting  address  of  a  buffer  and  was  incremented  until  it  equaled  the  starting  address 
of  the  next  buffer).  This  hard  coding  is  the  easiest  to  overcome,  but  it  is  a  glaring 
example  of  the  way  the  software  written.  These  ringed  buffers  can  be  easily  defined 
using  a  ring  buffer  generic  package  in  Ada  where  the  data  is  inserted  and  extracted  using 
procedure  and  ftmction  calls.  Error  handling  can  be  included  to  cover  the  cases  of 
underflow  and  overflow.  The  size  of  each  buffer  is  then  easily  established  during 
elaboration  based  upon  the  size  specified.  It  was  determined  that  the  best  source  of 
information  to  establish  a  high  level  data  flow  diagram  was  the  documentation.  This  data 
flow  is  shown  in  Figure  4-1.  The  data  flow  between  the  modules  of  the  DBF  are 
primarily  indirect  by  using  data  stores.  It  was  decided  that  the  effort  to  describe  this  data 
flow  was  of  little  use  and  was  not  done. 

D.  USE  OF  THE  TD-1271  AS  AN  ENGINEERING  GUIDE 

It  was  during  the  effort  to  establish  the  control  and  data  flow  diagrams  that  the 

determination  was  made  that  the  TD-1271  should  be  redesigned  fi-om  the  top  down.  The 
source  code  as  designed  didn’t  support  the  re-engineering  effort  except  as  an  engineering 
guide  during  the  redesign  processes. 

The  interrupt  handlers  can  be  used  to  establish  the  tasks  responsible  for  the  input 
and  output  of  data  to  the  DBF  subsystem.  While  the  modules  are  not  suitable  for  re¬ 
engineering,  the  organization  of  the  main  modules  can  be  useful  in  partitioning  the  new 
system.  You  can  see  by  Figure  4-2  that  there  are  four  chaimels  that  are  serviced  in  a  ' 
round  robin  method.  The  new  system  can  also  use  this  organization.  The  most  valuable 
asset  the  current  TD-1271  has  is  by  providing  a  system  that  works.  A  comparison 
between  the  behavior  of  the  system  to  various  inputs  and  what  is  specified  in  the 
documentation  can  give  a  good  indication  on  the  state  of  the  documentation.  It  provides 
a  strong  baseline  between  stimulus  and  response  that  can  assist  in  the  formation  of  the 
new  design. 

E.  DOCUMENTATION  REVIEW 

As  was  noted  in  the  previous  section,  attempts  to  extract  the  requirements  directly 

from  the  code  became  a  prohibitively  tedious  and  difficult  task.  This  left  only  the 
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original  documentation  with  which  to  attempt  to  baseline  the  requirements.  The  primary 
documentation  available  for  the  Data  Buffer  Processor  program  includes  the  Program 
Performance  Specification  (PPS)  [49],  the  Program  Design  Specification  (PDS)  [50]. 
Also  available  are  the  system  level  PPS  [46]  and  PDS  [47]  for  the  TD1271B/U.  The 
factors  and  problems  noted  about  documentation  in  Chapter  I  are  evident  in  the 
TD1271B/U’s  documentation,  and  bring  it’s  overall  accuracy  into  question.  The 
documents  do  however  provide  the  basic  requirements  as  they  were  known  as  late  as 
1987.  It  is  these  requirements  that  we  shall  briefly  examine  within  this  section  relative  to 
the  re-engineering  plan  detailed  in  Chapter  III. 

1.  Phase  One:  Architecture  Definition. 

a.  Structure  Chart 

The  DBP  PDS  [50,  page  3-1]  provides  a  basic  structure  chart.  This  is 
reproduced  here  as  Figure  4-5.  This  structure  chart  does  not  include  the  modules  for 
initialization  and  setup. 

b.  Module  Description 

Module  descriptions  for  the  six  ‘run  time’  modules  are  provided  in  both 
the  PPS  and  in  the  PDS  for  the  DBP.  Setup  and  initialization  are  not  specifically  listed. 
Briefly  these  six  modules  are: 

1-  Receive  Burst  Initialization  Module  tRRTV  This  function 
processes  the  receive  burst  notification  from  the  System  Timing  Processor. 

It  initializes  the  DBP’s  hardware,  the  I/O  ports  flags  and  pointers,  and  the 
Service  Receive  Burst  FIFO  function. 

2.  Transmit  Burst  Initialization  Module  /TBTV  This  function 
processes  the  receive  burst  notification  from  the  System  Timing  Processor. 

It  initializes  the  DBP’s  hardware,  the  I/O  ports  flags  and  pointers,  and  the 
Service  Transmit  Burst  FIFO  function. 


29 


Figure  4-5 

DBF  High  Level  Structure  Chart 

3.  I/O  Port  Service  Module  H01PT-I04PT).  These  four  modules 
services  each  of  the  four  baseband  ports.  If  the  I/O  Transmit  Request 
input  is  true,  the  DBP  will  accept  I/O  port  data  and  store  it  in  the  port’s 
data  buffer.  If  the  I/O  Transmit  Request  input  is  false  and  there  is  receive 
burst  data  for  the  port,  then  the  I/O  port  service  will  output  this  data  from 
the  data  buffer  to  the  baseband  equipment. 

4.  Service  Receive  Burst  FIFO  Module  (SIFT  This  module  inputs 
receive  burst  channel  data  and  stores  it  in  the  data  buffer. 

5.  Service  Transmit  Burst  FIFO  Module  tSOFY  This  module 
outputs  the  I/O  port’s  transmit  data  from  the  data  buffer  to  the  burst 
channel. 

6.  Interrupt  Service  Module  HRSL  This  module  communicates 
tvith  the  System  Control  Processor.  It  receives  I/O  port  bit  rate  and 
coimection  status,  and  it  receives/transfers  orderwire  messages  on  an 
interrupt  basis  [49]. 
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c.  Data  flow 

The  Data  Flow  is  somewhat  more  difficult  to  extract  from  the 
documentation.  By  definition  in  the  DOD-STD-1679A  [51],  the  full  definition  of  data 
variables  would  be  documented  either  in  the  Program  Design  Document  or  in  the 
Database  Design  Document.  To  date  we  have  not  found  any  reference  to  either  of  these 
documents.  It  is  our  belief  that  they  were  tailored  out  of  the  documentation  package  for 
the  original  development.  This  leaves  some  of  the  inputs  and  outputs  listed  in  the  DBP 
PPS  and  PDS  open  to  question  as  to  their  origin  and  content.  Clearly  this  is  an  area 
where  it  would  be  necessary  to  track  the  variables  through  out  the  code  to  ascertain  their 
design  and  functions.  In  addition  to  the  program  variables,  there  are  an  assortment  of 
Key  Lines,  Clocks,  and  Interrupts  that  need  to  be  processed  and  input.  Figure  4-1 
provides  a  block  diagram  of  the  inputs  and  output  from  the  DBP  module. 

d.  Control flow 

From  the  DBP  PDS  we  were  able  to  extract  the  basic  control  flow 
diagram.  This  diagram  (Figure  4.6)  would  provide  the  sequencing  of  tasks  in  the  new 
software  module.  It  would  also  provide  the  basis  for  the  modules  for  the  Data  Flow 
diagram.  In  addition  to  this  ‘basic’  control  flow,  there  is  also  an  Interrupt  handling 
module  capable  of  stopping  current  processing  and  shifting  control  to  another  module. 

2.  Phase  Two:  Requirements  Definition. 

The  second  part  of  the  re-engineering  effort  is  to  utilize  the  data  gathered  from  the 
first  phase  to  develop  requirements.  The  high  level  requirements  can  be  easily  extracted 
from  the  module  descriptions. 

R1 :  Will  receive  burst  timing  from  System  Timing  Processor. 

R2:  Will  initialize  hardware  and  software  flags  and  statuses 

R3:  Will  input  data  from  the  Baseband  ports  and  store. 

R4:  Will  receive  data  from  the  channel  and  store. 

R5:  Will  forward  input  data  from  storage  to  the  channel. 
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Figure  4-6 

Control  Flow  Diagram 
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R6:  Will  output  receive  data  from  storage  to  the  Baseband  port. 

R7:  Will  receive  and  transfer  orderwires  to  and  from  the  System  Control 
Processor. 

R8:  Will  receive  port  status  and  connection  information  from  the  System 
Control  Processor. 

From  this  point,  development  of  more  detailed  requirements  would  progress  along 
normal  development  lines.  The  advantage  that  would  be  gained  in  this  area  would  be  the 
ability  to  check  the  foundation  of  a  requirement  in  the  code.  In  this  way  the  ‘forward’ 
engineering  effort  would  have  a  existing  system  to  validate  the  responses  against. 

F.  RECOMMENDATIONS 

Effort  can  be  expended  to  convert  the  TD-1271  to  a  high  order  language  and  have 
it  run  on  any  number  of  modem  day  processors.  To  do  so  without  reengineering  the 
system  from  the  top  down  will  in  effect  doom  this  system  to  the  same  fate  it  has  fallen  to 
today:  unstructured  and  not  maintainable. 

One  of  the  obvious  recommendations  would  be  to  use  a  modem  programming 
language.  Because  of  the  use  of  ring  buffers  between  the  subsystems,  a  method  that  is 
valid  in  a  new  design,  Ada  would  be  the  best  choice.  This  would  allow  the  use  of  generic 
packages  to  handle  the  buffers.  Ada's  tasking  and  the  ability  to  tie  the  task’s  entry  point 
to  a  hardware  interrupt  would  be  another  valuable  feature  that  makes  Ada  the  first  choice. 

The  original  thesis  called  for  timing  studies  to  be  conducted  on  the  re-engineered 
code.  Since  the  code  never  reached  the  state  where  these  studies  could  be  performed 
there  aren't  any  hard  niunbers  to  address.  However,  the  current  system  runs  on  three 
Motorola  6800  microprocessors.  The  increase  in  the  processors  throughput  since  the 
Motorola  6800  introduction  would  give  a  good  indication  that  the  entire  system  could  fit 
on  any  number  of  modem  day  microprocessors.  The  hard  real  time  requirement  is 
handling  the  input  from  the  modem.  This  data  is  transmitted  at  a  maximum  rate  of  16K 
bits/second.  Most  real-time  embedded  applications  use  Wind  River's  VxWorks  operating 
system.  This  operating  system  allows  the  application  to  read  a  serial  port  with  a  variable 
input  size.  The  programmer  specifies  the  file  descriptor  for  the  serial  port,  the  address  in 
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which  the  data  is  to  be  read,  and  the  number  of  bytes  to  read.  In  addition,  VxWorks 
provides  an  optimized  task  switch  for  interrupt  handlers  that  has  the  overhead  of  a 
function  call.  Once  the  data  has  been  read  in  the  data  is  output  as  processed.  By  proper 
scaling  of  the  input  data  from  the  modem,  the  processing  percentage  spent  on  handling 
the  interrupt  can  be  less  than  1 0%.  With  these  considerations  our  recommendation  would 
be  either  the  Motorola  68040  or  the  Motorola  Power-PC. 
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V.  CONCLUSIONS 


This  thesis  was  originally  planned  to  be  a  fairly  straight  forward  application  and 
review  of  the  re-engineering  process.  We  very  rapidly  ran  into  problems  of  scope  and 
time.  There  is  a  tremendous  amount  of  data  written  on  the  subject  of  re-engineering.  The 
re-engineering  data  not  only  covered  software,  but  also  included  business,  hardware,  and 
other  re-engineering  topics.  The  first  problem  we  faced  was  separating  out  the  relevant 
topics.  After  ‘narrowing’  the  scope  to  software  re-engineering,  we  were  still  faced  with  a 
daunting  amount  of  information  to  review.  We  found  a  great  deal  of  information 
presented  on  the  general  theory  of  re-engineering,  but  very  little  concrete  information  on 
the  application  of  these  theories.  We  were  able  to  locate  a  methodology  to  try  [30]. 

The  first  phase  of  this  methodology  is  the  extraction  of  data  from  the  existing 
code.  As  noted  by  Byrne  (30),  tool  support  for  this  portion  is  a  major  necessity.  With 
appropriate  tools  it  is  possible  to  statically  analyze  and  document  an  extensive  program  in 
a  relatively  short  period  of  time.  He  estimates  a  150  to  1  time  ratio  difference  between 
manual  analysis  to  an  automated  tool  approach.  Based  on  our  experience,  we  would 
concur  with  this  evaluation.  We  were  unable  to  locate  any  tool  support  to  automate  the 
extraction  of  basic  calling  trees  or  other  data  from  the  legacy  system  we  were  looking  at. 
Although  some  were  found  for  high  order  languages,  there  were  very  few  listings  for  any 
Assembly  language,  and  none  of  these  were  for  the  Motorola  6800.  This  we  believe  will 
be  prevalent  in  most  legacy  systems.  Most  of  the  legacy  systems  will  be  in  some  form  of 
Assembly  language,  but  there  are  not  enough  in  any  one  language  to  make  it 
commercially  feasible  to  develop  a  tool  to  automate  this  portion  of  the  re-engineering 
process. 

When  faced  with  poorly  designed  software  it  is  important  to  start  the  re¬ 
engineering  work  at  the  lowest  level  in  which  the  design  is  masked.  For  example,  the 
preliminary  design  may  be  adequate  and  it  was  in  the  execution  of  the  design  that  the 
poor  design  decisions  were  made.  However,  it  is  more  likely  that  the  designers,  knowing 
the  constraints  of  the  environment  in  which  they  have  to  operate,  like  available  memory. 
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will  design  to  make  optimum  use  of  the  resources  available.  There  are  examples  in  which 
the  software  was  written  with  self-modifying  code  in  order  to  recover  memory  space  used 
for  initialization  as  scratch  pads  for  data.  However,  when  re-engineering  the  system  these 
type  of  design  decisions  need  to  be  abandoned  and  the  software  needs  to  be  designed  to 
the  standards  of  the  times. 

With  the  TD-1271,  a  tremendous  amount  of  time  was  used  in  just  trying  to 
understand  and  decipher  the  source  code.  The  software,  with  little  or  no  comments  (see 
Appendix  D)  and  poorly  designed  control  structure,  cannot  be  recommended  for  re¬ 
engineering.  Time  and  effort  could  be  expended  to  re-engineer  the  source  code:  It’s  not 
an  impossible  task,  but  it  is  not  cost  effective.  Nor  would  the  result  have  enhanced  the 
supportability  of  the  software. 

The  only  reasonable  approach  for  the  TD1271B/U  would  be  to  start  at  the 
requirements  documentation,  establish  a  testing  criteria  for  each  requirement,  and 
perform  those  tests  on  the  existing  system.  These  tests  would  demonstrate  if  there  have 
been  modifications  to  each  requirement  that  would  warrant  further  investigation  to 
determine  the  current  state  of  that  requirement.  Once  the  modifications  to  the 
requirements  have  been  made  and  a  suitable  target  system  identified,  the  task  of  re¬ 
writing  the  software  would  be  considered  a  small  to  medium  effort  when  weighed  against 
current  Navy  communications  systems  currently  under  development. 
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APPENDIX  B 


A.  TD-1271B/U  SUBROUTINE  CALL  TREE 


Module  Name 

Located  in 

Is  Called  by 

Located  in 

0,X 

FPANEL 

FP 

SRX 

STPV06 

"STXO 

STPV06 

ACK_^CC_RCCOW 

PRECLA 

EXAM_CCOW^OVRHED 

PRECLA 

ADJUST_FCOUNT_GS 

GS 

DBP_MSG_INtRPRT 

DCEXEC 

DBP_MSG_INTRPRT 

PREALT 

EXAM  CCOW  OVRHED 

PRECLA 

ALARMJDN^GS 

GS 

FPANEL 

FP 

BEEP  ALARM  GS 

GS 

|ALPHA^ONOFF^A_GS 

GS 

FPANEL 

FP 

GLIST_DISPLY_FP 

FP 

RECALL_FP 

FP 

DC_HOME_FREQ_FP 

FP 

AC_HOME_FREQ_FP 

FP 

QUEUE_TIME_^FP 

FP 

CMD_^RESPONSE_FP 

FP 

FREQ  TO  DSPLY  FP 

FP 

KG_^TIME_TO  DSPLY 

FP 

STATUS  RPT  B  FP 

FP 

ZEROIZE_FP 

FP 

CONFER_CALL_FP 

FP 

INFO_REQUEST_FP 

FP 

PAGING_REQ  FP 

FP 

KG_^MEM_CHANGE^FP 

FP 

CONFIG  CODE  FP 

FP 

DISP_INFO^REQ  GS 

GS 

LAMP_TEST__GS 

GS 

LNK__TST  RES  GS 

GS 

ERR_,GS 

GS 

SHOW__PORT  GS 

GS 

|ALPHA_ONOFF_^B_GS 

GS 

FPANEL 

FP 

INFO_REPORT^FP 

FP 

RECALL^FP 

FP 

ZEROIZE^FP 

FP 

PORT_RELEASE  FP 

FP 

DC_HOME^FREQ_FP 

FP 

AC  HOME  FREQ_FP 

FP 

SELECT^PORT_FP 

FP 

PREC_ENTER_FP 

FP 

KG_MEM_FILL_FP 

FP 

INFO  REQ  CHK  FP 

FP 

EXIT^FP 

FP 

LINK_TEST_REQ^FP 

FP 

CALL_COMPLETE_FP 

FP 

CHAN  CONTROL  FP 

FP 

OUT_OF_SERV_FP 

FP 

TO_PARITY_CALL_FP 

FP 

FORMAT_FREQ^FP 

FP 

CONFER_CALL_FP 

FP 

KG^TIME^FP 

FP 
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Module  Name 


ALPHA  ONOFF  B  GS 


ALPHA  ONOFF  B  GS 


AUDIO_ALARM  01 


AUDIO  ALARM  02 


AUDIO  ALARM  OFF 


BEEP  ALARM  GS 


Located  in  |  Is  Called  by 


CALL_CANCEL  FP 


INFO_REQUEST  FP 


PAGING_^REQ_FP 


KG  MEM  CHANGE  FP 


STG_CONTROL  FP 


CONFIG  CODE  FP 


ILNK  TST  RES  GS 


CALL  CC  GS 


DISP  FCNT  GS 


FPANEL 

_ _  INFO_REQ  CHK  FP 


IFPANEL 


KG  MEM  FILL  FP 


INFO_^REQUEST  FP 


YZ  TO  BIN  FP 


AC_HOME  FREQ  FP 


VWXYZ  TO  BIN  FP 


FPANEL 


FREQ  TO  DSPLY  FP 


DC_HOME_FREQ_FP 


FPANEL 


INFO  REPORT  FP 


PORT  RELEASE  FP 


DC_HOME_FREQ_FP 


AC^HOME  FREQ  FP 


SELECT  PORT  FP 


PREC  ENTER  FP 


KG^MEM  FILL  FP 


CMD  RESPONSE  FP 


PRE^DCKA  CHK  FP 


CHAN  CONTROL  FP 


LINK_TEST_REQ  FP 


ZEROIZE  FP 


STATUS  RPT  B  FP 


CALL  COMPLETE  FP 


OUT  OF  SERV  FP 


TO  PARITY  CALL  FP 


FORMAT  PARITY  FP 


CONFER_CALL  FP 


KG  TIME  FP 


CALL_CANCEL  FP 


INFO__REQUEST_FP 


PAGING  REQ  FP 


EXTEND  XMIT  FP 


KG  MEM  CHANGE  FP 


STG  CONTROL  FP 


CONFIG  CODE  FP 


PORT  DETECT  GS 


LNK_TST  RES  GS 


ERR_GS 


FPANEL 


DC^HOME_FREQ  FP 


AC_HOME  FREQ  FP 


QUEUE  TIME  FP 


DISCOTIME  DISPLAY 


FREQ  TO  DSPLY  FP 


KG  TIME  TO  DSPLY 


Located  in 
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Module  Name 


BIN  TO  BCD  GS 


Located  m 


|CALL_CC_GS  IGS 


CALL_COMPLETE_FP  FP 


CALL  QUE  UPDATE  PREINT 


CALL  REQ  DCMOW 


CC  EXEC  DCCNTR  DCCNTR 


CC  EXEC  PRECLA  PRECLA 


Is  Called  by 


FPANEL 


RECALL  FP 


INFO  REQ  CHK  FP 


FREQ  CODE  CHK  FP 


GLIST  DISPLY  FP 


LNK  TST  RES  GS 


CALL  REQUEST 


RRU  INTRPRT 


CALL  REQUEST 


DATA  XFER 


GLIST  DISP 


CALL  COMPLETE 


INFO  REPORT 


RRU__INTRPRT 


RRU  STATUS  RPTB 


DATA  XFER 


GLIST  DISPLAY  05 


CALL  COMPLETE 


RRU  PRTY  OUT  05 


INFO  REPORT  05 


CALL  REQ  05 


CONFIG  ENTRY  05 


RRU  CALLCAN  05 


GLIST_ENTDEL  10 


PAGING  RCOW 


CONF  REQUEST 


RBIJ 

RBIT 


EXEC  DCEXEC 


EXEC  PREALT 


CHECKSUM  CHK  GS 


CONFIG 


EXEC 


PSA 


CONFIG 


XFER  CCOW  TO  DBP 


IN  CCOW  FROM  DBP 


ENCRYPT_CCOW 


DECRYPT  CCOW 


XFER  RCOW  DBP  GS 


DECRYPT_RCOW  GS 


READ  DBP  RCOW  GS 


ENCRYPT  RCOW  GS 


IN  CCOW  FROM  DBP 


ENCRYPT__CCOW 


DECRYPT  CCOW 


XFER  OW 


PORT_DETECT  GS 


JUMP  COMPLETE  GS 


CALL^IN_QUE_ACK 


CALL_IN_QUE 


CALL  REQUEST 


TO  PARITY  CALL  FP 


EXEC  DCEXEC 


EXEC  PREALT 


Located  in 


|FP 


FP 


FP 


FP 


FP 


GS 


DCMOW 


DCMOW 


DCMOW 


DCMOW 


DCMOW 


DCMOW 


DCMOW 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


DBPV4 

"DBPV4 


DCEXEC 


PREALT 


GS 


STPV06 


STPV06 


STPV06 


STPV06 


DCEXEC 


DCEXEC 


DCEXEC 


DCEXEC 


GS 


GS 


GS 


GS 


PREALT 


PREALT 


PREALT 


PREALT 


IPREINT 


PREINT 


DCMOW 


FP 


DCEXEC 


PREALT 


Module  Name 

Located  in 

Is  Called  by 

Located  in 

CCOW_INTP_DCMOW 

DCMOW 

EXEC  DCEXEC 

DCEXEC 

USEREXEC 

DCEXEC 

CCOW_INTP_PREINT 

PREINT 

USEREXEC 

PREALT 

CHECK_A_RANGE 

DCMOW/PREINT 

PORT_DISCONNECT 

DCMOW 

PORT_DISCONNECT 

PREINT 

CHECK  C  RANGE 


CHECKSUM  CHK  GS 


CHK  FRAME  COUNT 


CHK  GLIST 


CLEAR 


IDCMOW/PREINT 


IPRECLA 


PREINT 


IDBPV4 


CLEAR  CONT  COUNT  IPREINT 


CLEAR  DISP  GS 


CLEAR  GNUM 


CLEAR  GUARD  LIST 


CLEAR__LITES_TIME 


CLEAR_QUE  TIME 


CLEAR  SLOTS  GS 


CLRTIM 


IPREINT 


IDCMOW 


PREINT 


PREINT 


PREALT 


DCEXEC/PREALT 


IPREINT 


PORT_DISCONNECT 


IPORT  DISCONNECT 


PORT_DISCONNECT 


IlNIT  DCEXEC 


INIT 


FRAME  CHK  PRECLA 


I  SLOT  DISCONNECT 


CALL_WAITING 


HOME  CHAN  CHANG 


SLOT  CONNECT 


FORMAT  CHANGE 


IPWRON 


SETUP 


IBUSY  ACK 


CALL_IN^QUE  ACK 


USER  OUT  ACK 


CALL  ACK 


FPANEL 


SHOW  PORT  GS 


IRPT  GLISTl 


RPT  GLIST2 


RPT  GLIST3 


RTP  GLIST4 


FRAME  FMT  UPDATE 


CALL_CANCEL 


[SLOT  CON  UPDATE 


RRU  CALLCAN  15 


PORT  DISCONNECT 


CHAN^CONTROL  FP 


STATUS_PRECLA 


ZEROIZE 


PORT  DISCONNECT 


IRRU  MSG  UPDATE 


IRRU  MSG  UPDATE 


RRU_MSG_UPDATE 


|BUSY_ACK 


USER  OUT  ACK 


SLOT  CON  UPDATE 


CALL  CANCEL 


PARTY  OUT  OF  SYNC 


IPREINT 


IDCMOW 


PREINT 


IPREALT 


IPRECLA 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PBPV4 


IDBPV4 


PREINT 


PREINT 


PREINT 


PREINT 


IGS 


PREINT 


PREINT 


PREINT 


PREINT 


pCMOW 


PREINT 


IPREINT 


PREINT 


pCMOW 


FP 


IPRECLA 


PREINT 


IPREINT 


DCEXEC 


DCEXEC 


PREALT 


IPREINT 


PREINT 


PREINT 


IPREINT 


PREINT 


Module  Name 


CMD_RESPONSE  FP  FP 


Located  in 


Is  Called  by 


ZEROIZE  FP 


INFO  REPORT  FP 


TO  PARITY  CALL  FP 


FORMAT  FREQ  FP 


CONFER  CALL  FP 


DC  HOME  FREQ  FP 


AC_HOME_FREQ_FP 


KG_TIME  FP 


INFO_REQUEST  FP 


GLIST  ENTER  FP 


PAGING_REQ_FP 


KG  MEM  CHANGE  FP 


GLIST  DELETE  FP 


STG  CONTROL  FP 


CONFIG  CODE  FP 


CHAN  CONTROL  FP 


CCOW_INTP  DCMOW 


CCOW  INTP  05 


FRAME  CHK  DCCNTR 


FRAME  CHK  PRECLA 


MASTER_FRAME 


INFO_REQ_CHK  FP 


CONFIG 


RCOW  PREP  XMIT 


CLEAR  CONT  COUNT 


READ  CALL  ACK 


BCD  TO  BIN  GS 


BIN  TO  BCD  GS 


ZEROIZE 


TS  PREP 


INFO_^REQUEST  GS 


EXEC  PREALT 


EXEC  DCEXEC 


USEREXEC 


USERPREAC 


USERPREAC 


USEREXEC 


INFO_REQUEST  GS 


PORT  DETECT  GS 


FPANEL 


KG  MEM  FILL  FP 


DBP  MSG  INTRPRT 


DBP  MSG  INTRPRT 


DBP  MSG  INTRPRT 


DBP_MSG^INTRPRT 


DELET  GUARD  LIST 


GLIST  ENTDEL  30 


STATUS  DCCNTR 


CC^EXEC  PRECLA 


RCV  CCOW  BLOCK 


STATUS_PRECLA 


RNGEXC 


LTEXEC 


Located  in 


IFP 


FP 

"FP 


FP 


FP 


FP 


TFP 


FP 


FP 


FP 


FP 


FP 


FP 


FP 


DCMOW 


PREINT 


DCCNTR 


PRECLA 


PREINT 


FP 


STPV06 


PREALT 


IPREINT 


IPREINT 


GS 


GS 


DCMOW 


DCMOW 


GS 


PREALT 


DCEXEC 


DCEXEC 


IDCEXEC 


IPREALT 


PREALT 


IGS 


FP 


FP 


DCEXEC 


PREALT 


DCEXEC 


PREALT 


PREINT 


PREINT 


DCCNTR 


PRECLA 


^RECLA 


PRECLA 


STPV06 


1STPV06 
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Module  Name 

Located  in 

DISCO_SLOT_CHK 

DCMOW/PREINT 

DISCOTIME  DISPLY 


DISP  FCNT  GS 


DISPJNFO_REQ  GS 


DISP  VWXYZ  GS 


DISPLAY  EEEEE  GS 


DISPLY  TO  BCD  GS 


ENCRYPT  CCOW 


IDCEXEC/PREALT 


ENCRYPT  RCOW  GS  IPREALT 


EQUIPLED  REDO 


Is  Called  by 


CHECK_A  RANGE 


CHECK  B  RANGE 


CHECK  C  RANGE 


CHECK_A  RANGE 


CHECK  B  RANGE 


CHECK  C  RANGE 


FPANEL 


RECALL  FP 


ZEROIZE  FP 


CHAN  CONTROL  FP 


DC_HOME_FREQ_FP 


AC_HOME_FREQ  FP 


SELECT  PORT  FP 


CALL  COMPLETE  FP 


STATUS  RPT  B  FP 


GLIST  DISPLY  FP 


LINK^TEST  REQ  FP 


INFO_REPORT  FP 


TO  PARITY  CALL  FP 


FORMAT_FREQ  FP 


CONFER  CALL  FP 


KG  TIME  FP 


CALL  CANCEL  FP 


INFO  REQUEST  FP 


GLIST  ENTER  FP 


PAGING  REQ  FP 


KG_MEM  CHANGE  FP 


GLIST  DELETE  FP 


STG  CONTROL  FP 


CONFIG  CODE  FP 


OUT_OF  SERV  FP 


LNK  TST  RES  GS 


FPANEL 


FPANEL 


RECALL_FP 


LNK  TST  RES  GS 


GLIST  DISPLY  FP 


ERR  GS 


FORMAT^FREQ_FP 


AC^HOME  FREQ  FP 


VWXYZ  TO  BIN  FP 


YZ  TO  BIN  FP 


WX  TO  BCD  FP 


YZ  TO  BCD  FP 


CONFIG_CODE  FP 


EXEC  DCEXEC 


Located  in 


IDCMOW 


IDCMOW 


PCMOW 


PREINT 


IPREINT 


PREINT 


FP 


FP 


IFP 


EXEC^PREACT 

“PREALT 

RCOW_PREP_XMIT 

DCEXEC 

RCOW_PREP_XMIT 

“PREALT 

FPANEL 

FP 

Module  Name 


Located  in 


EVEN^PORT  STORE  PREINT 


EXAM_CCOW^OVRHED  PRECLA 


EXIT_FP  FP 


FIND  GLIST  PREINT 


FIND  GLIST  05 


FIND  PREMPT  ADR 


IPREINT 


IPREINT 


FIND_RRU_QUE 


IPREINT 


FIND^RRUQUE_ADR  [PREINT 


Is  Called  by 

Located  in 

ZEROIZE^FP 

FP 

INFO_REPORT^FP 

FP 

TO  PARITY  CALL  FP 

FP 

FORMAT^^FREQ  FP 

FP 

c6nfer_call_fp 

FP 

KG_TIME_FP 

FP 

INFOJRJEQUEST  FP 

FP 

GLIST_ENTER_FP 

FP 

PAGING_REQ_FP 

FP 

EXTEND  XMIT  FP 

FP 

GLIST_DELETE  FP 

FP 

GLIST_DISPLAY  FP 

FP 

RRU^STATUS^RPTB 

PREINT 

RCV_CCOW_BLOCK 

PRECLA 

TIME^CHK  DCCNTR 

DCCNTR 

ENTER_GUARD^LIST 

PREINT 

DELET_GUARD  LIST 

PREINT 

GLIST_DISPLAY  05 

PREINT 

GLISt_ENTDEL_10 

PREINT 

GLIST_ENTDELJO 

PREINT 

PREMPTCOUNT^REDO  i 

PREINT 

SLOt_CON_UPDATE 

PREINT 

RRU__DISCO 

PREINT 

SETUP 1 

DCMOW 

'CALL_REQUEST 

DCMOW 

LITES_OFF_DCMOW 

DCMOW 

DATA  XFER 

DCMOW 

LNK_TST^LAMP  GS 

GS 

LNK^TST^RES^GS 

GS 

RRU_ACPT_ON_GS 

GS 

INFO  REQUEST  GS 

GS 

RRUJDISCO 

PREINT 

READ_CALL  ACK 

PREINT 

CALL^IN^QUE  ACK 

PREINT 

USER^OUT_ACK 

^INT 

RRU_OUT_ADR 

PREINT 

SLOT^CON^UPDATE 

PREINT 

CALL_CANCEL 

PREINT 

CALL^WAITING 

PREINT 

CALL_IN__QUE 

PREINT 

CCOW_DATA_XFER 

PREINT 

PARTY^OUT  OF  SVC 

PREINT 

LITES_OFF_PREINT 

PREINT 

RRU^CALL^CAN  05 

PREINT 

DATA_XFER 

PREINT 

DEDICATED_SLOT 

PREINT 

BUSY^ACK 

PREINT 

CALL^WAITING 

PREINT 

FIN]D_RCOW_QUE 

PREINT 

CALL_^QUE_UPDATE 

PREINT 

OUT_SVC_UPDATE 

PREINT 

'CLEAR_QUE  TIME 

PREINT 
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Module  Name 

Located  in 

fix“a__gs 

GS 

FIXAB  GS 


PREINT 


PREINT 


IPREINT 


PREINT 


PREINT 


PREINT 


PCEXEC/PREALT 


FMT^GLIST  RCW  15 


FMT  GLIST  RCW  40 


FORMAT  UPDATE 


FORMAT  GLIST  RCW 


FP  RCOW 


FPANEL  FP 


FRAME  CHK  DCCNTR  IDCCNTR 


FRAME  CHK  PRECLA  IPRECLA 


FRAME  FMT  UPDATE  IDCMOW 


FREEZE  DISPLAY 


FREQ_CODE_CHKJ  IFP 


FREQ_CODE  CHK  FP  FP 


FREQ_TO^DSPLY_FP  IFP 


FSLOT  STPV06 


GET  RANDOM  NR  GS  GS 


_  Is  Called  by 


FPANEL 


CONFER  CALL  FP 


QUEUE  TIME  FP 


DISCOTIME  DISPLAY 


KG  MEM  FILL  FP 


FREQ  TO  DSPLY  FP 


PAGING_REQ  FP 


KG_MEM  CHANGE  FP 


LINK_TEST  REQ  FP 


FIXAB  GS 


FPANEL 


SHOW  YZ  GS 


SHOW  WX  GS 


FIXA_GS 


QUEUE  TIME  FP 


DISCOTIME  DISPLAY 


CMD__^RESPONSE  FP 


FREQ  TO  DSPLY  FP 


DISPLY  TO  BCD  GS 


ISET  GLIST  PTR 


SET_GLIST  PTR 


SET  GLIST  PTR 


CLEAR  GNUM 


FORMAT  CHANGE 


RPT  GLISTl 


USEREXEC 


USERPREAC 


USERPREAC 


USEREXEC 


USEREXEC 


USERPREAC 


USEREXEC 


USERPREAC 


USEREXEC 


USERPREAC 


DBP  MSG  INTRPRT 


USEREXEC 


USERPREAC 


DBP  MSG  INTRPRT 


MASTER  FRAME 


FORMAT^FREQ  FP 


DC_HOME_FREQ_FP 


KG  TIME  FP 


KG^MEM_CHANGE  FP 


KG_TIME  FP 


FORMAT  FREQ  FP 


DC^HOME_FREQ_FP 


FORMAT^FREQ  FP 


SRX 


RCOW  PREP  XMIT 


COMP  RRU  PREC 


Located  in 


IFP 


FP 


^S 


PREINT 


IPREINT 


PREINT 


IPREINT 


PREINT 


PREINT 


IDCEXEC 


IPREALT 


IPREALT 


IDCEXEC 


rPREALT 


IPREALT 


IPREALT 


IPREALT 


IPREALT 


pCMOW 


FP 


|FP 


FP 


FP 


]FP 


FP 


FP 


FP 


STPV06 


PREALT 


PREINT 
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Module  Name 


GET  RCOW  ADR  GS 


Located  in 


GET  RRU  INADR  GS  GS 


Is  Called  by 


PATA_XFER 


INFO  REQUEST 


ANY_MSG  IN  QUE 


FRAME  CHK  PRECLA 


RRU  STATUS  RPTB 


DATA  XFER 


CALL  COMPLETE 


RRU_PRTY  OUT  05 


INFO  REPORT  05 


RRU  CALLCAN  05 


RRU_CALL  CAN  15 


PAGING  05 


FIND_RRU  QUE 


ANY^MSG_IN  QUE 


CONFIR  LIST  RTP 


DEDICATED  SLOT 


CLRTIM 


CALL  REQ  05 


CONF  REQ  05 


RRU  INTRPRT 


CALL_REQUEST 


DATA-XFER 


GLIST  DISP 


CALL  COMPLETE 


INFO_REQUEST 


RRU  INTRPRT 


CONF_REQUEST 


CALL  REQUEST 


RRU  STATUS  RPTB 


DATA_XFER 


GLIST  DISPLAY 


CALL  COMPLETE 


RRU  PRTY  OUT  05 


INFO  REPORT 


RRU_CALL__CANCEL 


GLIST  ENTR  DEL 


GLIST  ENTDEL  05 


PAGING  RCOW 


CONFIG  ENTRY 


OUT  OF  SERV  FP 


CONFER_CALL  FP 


GLIST_DISP  05 


CHK  GLIST 


ENTER  GUARD  LIST 


GLIST_ENTDEL  10 


GLIST  ENTDEL  30 


DELET  GUARD  LIST 


ZEROIZE  FP 


INFO  REPORT  FP 


TO  PARITY  CALL  FP 


CONFER__CALL  FP 


INFO  REQUEST  FP 


GLIST  ENTER  FP 


PAGING  REQ  FP 


DBP_MSG  INTRPRT 


DBP  MSG  INTRPRT 


Located  in 


IDCMOW 


pCMOW 


pCMOW 


PRECLA 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


[PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


IPREINT 


IPREINT 


pCMOW 


pCMOW 


pCMOW 


pCMOW 


pCMOW 


pCMOW 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


IPREINT 


PREINT 


PREINT 


FP 


FP 


PREINT 


PREINT 


PREINT 


PREINT 


IPREINT 


PREINT 


FP 


FP 


FP 


FP 


FP 


]FP 


FP 


pCEXEC 


IPREALT 
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Module  Name 


INFO_REPORT  FP 


INFO_REQ^05_GS 


INFO  REQ  CHK  45 


INFO  REQ  CHK  50 


INFO  REQ  CHK  FP 


INIT 


INITIAL  ENTRY 


Located  in 


IPREALT/DBPV4  (LABEL) 


IPREINT 


JUMP  SELECT  2  GS 


KB  TIME  INIT  GS 


KG  INITIAL  GS 


Is  Called  by 

Located  in 

CALL_CC_GS 

GS 

HOME_CHAN_05 

PREINT 

"  PORT_RELEASE_FP 
"  FPANEL 


IPWRON 


TDMA 


|RRU_STATUS  RPTB 


DATA  XFER 


CALL  COMPLETE 


RRU  PRTY  OUT  05 


INFO  RPT  05 


RRU  CALL  CAN  15 


PAGING  05 


STATUS  RPT  A 


LINK  RESULT 


lOlLF 

DBPV4 

lOlLS 

DBPV4 

'I02LF 

bBPV4 

I02LS 

DBPV4 

I03LF 

DBPV4 

I03LS 

DBPV4 

I04LF 

DBPV4 

I04LS 

DBPV4  j 

JUMP_COMPLETE  GS 

GS  ] 

JUMP^SELECT_1  GS 

GS  ] 

CALL^REQ  05 


CONF_REQ_05 


SHOW  PORT  GS 


CALL  CC  GS 


DCKPORTOFF  GS 


SHOW  PORT  GS 


CALL  CC  GS 


IZEROIZE  FP 


OUT  OF  SERV  FP 


STATUS  RPT  B  FP 


GLIST  DISPLY  FP 


LINK_TEST^REQ  FP 


INFO  REQUEST  FP 


TO_PARITY  CALL  FP 


CONFER  CALL  FP 


CALL  CANCEL  FP 


INFO^REQUEST  FP 


GLIST  ENTER  FP 


PAGING  REQ  FP 


CONFIG  CODE  FP 


CALL  COMPLETE  FP 


EXEC  DCEXEC 


EXEC_PREALT 
ENCRYPT  CCOW 


IFP 


PBPV4 


PBPV4 


PREINT 


PREINT 


Ipreint 


IPREINT 


ipreint 


PREINT 


PREINT 


PREINT 


IPREINT 


PREINT 


PREINT 


Ipreint 


DBPV4 


DBPV4 


DBPV4 


DBPV4 


DBPV4 


DBPV4 


DBPV4 


pBPV4 


IGS 


FP 


DCEXEC 


PREALT 


PREALT 
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Module  Name 


KG  INITIAL  GS  05 


KG  LOAD  GS 


KG  MEM  CHANGE  GS  GS 


KG  MEM  FILL  20 


KG  MEM  FILL  FP 


KG_MEM_TEST  GS 


KG  READY  GS 


ll^USS&iSU 


KG  TIME  75 


KG  TIME  TO  DSPLY 


LDl 


LD2 


LD3 


LD4 


LITES  OFF  DCMOW 


LITES  OFF  GS 


|DBPy4 


pBPV4 


pBPV4 


PBPV4 


DCMOW 


Located  in _  I  Is  Called  by 


[ENCRYPT  CCOW 


DECRYPT  CCOW 


DECRYPT  RCOW  GS 


ENCRYPT  RCOW  GS 


ENCRYPT  CCOW 


DECRYPT  CCOW 


jUSERPREAC 


ENCRYPT  CCOW 


USERPREAC 


lEXEC  DCEXEC 


TS  PREP  DCEXEC 


EXEC  PREALT 


TS  PREP  PREALT 


KG  LOAD  GS 


KG  MEM  FILL  FP 


FPANEL 


[EXAM  CCOW  OVRHED 


KG  MEM  CHANGE  GS 


[EXAM  CCOW  OVRHED 


KG  RESET  GS 


KG  INITIAL  GS 


[EXEC  DCEXEC 


TS  PREP  DCEXEC 


ENCRYPT  CCOW 


DECRYPT  CCOW 


DECRYPT  RCOW  GS 


ENCRYPT  RCOW  GS 


KG  MEM  CHANGE  GS 


EXEC  PREALT 


TS  PREP  PREALT 


ENCRYPT_CCOW 


DECRYPT  CCOW 


KG  TIME  FP 


KG  TIME  FP 


[STATUS  DCCNTR 


STATUS  PRECLA 


lOlA 


I02A 


I03A 


I04A 


[STATUS  DCCNTR 


ZEROIZE 


FRAME  FMT  UPDATE 


CHAN  CONTROL  FP 


[RECALL  FP 


INFO_REQUEST  FP 


PORT  RELEASE  FP 


INFO  REQ  CHK  FP 


CALL  COMPLETE  FP 


LINK_TEST  REQ  FP 


ZEROIZE  FP 


STATUS  RPT  B  FP 


GLIST  DISPLY  FP 


CHAN  CONTROL  FP 


OUT  OF  SERV  FP 


Located  in 


[DCEXEC 


DCEXEC 


GS 


[PREALT 


PREALT 


DCEXEC 


IDCEXEC 


PREALT 


DCEXEC 


DCEXEC 


PREALT 


PREALT 


GS 


FP 


FP 


PRECLA 


GS 


PRECLA 


GS 


IGS 


[DCEXEC 


DCEXEC 


DCEXEC 


[DCEXEC 


[GS 


GS 


GS 


PREALT 


PREALT 


PREALT 


PREALT 


FP 


FP 


[DCCNTR 


PRECLA 


PBPV4 


PBPV4 


pBPV4 


pBPV4 


DCCNTR 


DCMOW 


DCMOW 


FP 


FP 
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Module  Name 

Located  in 

Is  Called  by 

Located  in 

LITES^OFF^PREINT 

PREINT 

STATUS_PRECLA 

PRECLA 

FORMAT_UPbATE 

PREINT 

NUFMT  TO  STP 

PREINT 

LNK_TST_LAMP_GS 

GS 

TO^PARITY^CALL  FP 

FP 

LO  GUARD  CHK  FP 


LOAD  KG  VARS  GS 


LTRXEX 


MASTER  FRA  05 


MASTER  FRA  10 


MASTER  FRAME 


MOVE__FRAME_GS 


MOVE  GS 


ISTPV06 


PREINT 


PREINT 


IDCMOW/PREINT/DCCNTR 


MOVE_TMP_TO_VARS  IDCEXEC/PREALT 


MOVE_VARS_TO_TMP  |DCEXEC/PREALT 


NET_NUM_XCHNG  IDCEXEC 


NUFMT_TO_STP  IPREINT 


ODD  PORT  STORE  IPREINT 


FORMAT  FREQ  FP 


PORT  RELEASE  FP 


DC_^HOME  FREQ  FP 


AC_HOME^FREQ  FP 


QUEUE  TIME  FP 


SELECT  PORT  FP 


CONFER_CALL  FP 


KG  TIME  FP 


CALL  CANCEL  FP 


INFO  REQUEST  FP 


GLIST  ENTER  FP 


PAGING  REQ  FP 


EXTEND  XMIT  FP 


KG_MEM^CHANGE  FP 


GLIST  DELETE  FP 


STG  CONTROL  FP 


CONFIG  CODE  FP 


LAMP  TEST  GS 


IGLIST  ENTER  FP 


ENCYRPT  CCOW 


DECRYPT  CCOW 


DECRYPT  RCOW  GS  . 


ENCRYPT  RCOW  GS 


ENCRYPT  CCOW 


DECRYPT  CCOW 


EXEC 


MASTER  FRAME 


MASTER  FRAME 


ICCOW  INTP  DCMOW 


CCOW_INTP  PREINT 


|MASTER_FRAME 


FRAME  CHK  DCCNTR 


SPECIAL  CCOW 


RCOW  INTP  DCCNTR 


INIT  DCEXEC 


MOVE  TMP  TO  VARS 


MOVE  VARS  TO  TMP 


STP  MSG  INTRPRT 


INIT 


MOVE  VARS  TO  TMP 


MOVE^TMP  TO  VARS 


STP  MSG  INTRPRT 


RCOW  INTP  PRECLA 


lUSERPREAC 


USERPREAC 


lUSERPREAC 


USERPREAC 


DECRYPT  CCOW 


IMASTER  FRAME 


FORMAT  CHANGE 


|RRU  STATUS  RPTB 


|FP 


DCEXEC 


IDCEXEC 


IPREALT 


PREALT 


STPV06 


PREINT 


PREINT 


DCMOW 


PREINT 


[DCCNTR 


DCCNTR 


DCCNTR 


DCCNTR 


IDCEXEC 


IDCEXEC 


PREALT 


PREALT 


PREALT 


[PREALT 


PRECLA 


PREALT 


IDCEXEC 


DCEXEC 


PREALT 


IDCEXEC 


PREINT 


PREINT 


PREINT 
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Module  Name 


OFFSET  BY  6  GS 


OUT  SVC  UPDATE 


PLACE  CALL  PRTY 


PLACE_PORT 


Located  in 


IPREINT 


IPREINT 


PREINT 


STPV06 


Is  Called  by 


CC  EXEC  DCCNTR 


COMMAND  FRAME 


ICC  EXEC  DCCNTR 


COMMAND  FRAME 


lUSER  OUT  ACK 


PART  OUT  OF  SVC 


CONF  REQ  05 


|CONFER_LIST  RPT 


STATUS  RPT  B 


SET_GLIST  PTR 


SET  GLIST  PTR 


SET  GLIST  PTR 


IPOINT  TO  GLISTl 


POINT^TO_GLIST2 


POINT  TO  GLIST3 


pBP  MSG  INTRPRT 


IRRU^UPDATE 


ZEROIZE 


IFRAME  FMT  UPDATE 


FORMAT  UPDATE 


NUFMT  TO  STP 


FPANEL 


IDCKPORTOFF  GS 


SHOW_PORT  GS 


CALL_CC  GS 


ICONFIG  ENTRY  05 


ICONFIG  CODE  FP 


SLOT  CON  UPDATE 


RRU  STATUS  RPTB 


CALL_REQ  05 


CONF_REQ_05 


CONFIG  ENTRY  05 


TO  PARTY  CALL  FP 


IFPANEL 


TO  PARITY  CALL  FP 


FORMAT_FREQ_FP 


GLIST  DISPLY  FP 


lOUT  OF  SERV  FP 


TO  PARITY  CALL  FP 


CONFER  CALL  FP 


[DATA  XFER 


DATA  XFER 


RRU__PRTY  OUT 


CALL  REQ  05 


CONF  REQ  05 


RRU  DISCO 


TIME_CHK  PRECLA 


PREMPTCOUNT  REDO 


ISLOT  CON  UPDATE 


SLOT  DISCONNECT 


CALL__COMPLETE 


SRX 


RRU  STATUS  RPTB 


lEXEC 


CONFIG 


STX 


Located  in 


IDCCNTR 


pCMOW 


DCCNTR 


pCMOW 


PREINT 


PREINT 


PREINT 


PREINT 


IPREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


IPREINT 


PCEXEC 


PREINT 


IPREINT 


IDCMOW 


PREINT 


IPREINT 


IFP 


GS 


GS 


ps 


IPREINT 


FP 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


FP 


FP 


|FP 


FP 


|FP 


FP 


FP 


pCMOW 


PREINT 


PREINT 


PREINT 


IPREINT 


PREINT 


IPRECLA 


PREINT 


IPREINT 


PREINT 


PREINT 


ISTPV06 


PREINT 


STPV06 


STPV06 


ISTPV06 
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Module  Name 

Located  in 

PVR 

STPV06 

PVRA  ISTPV06 


PVT  ISTPV06 


RAMT  IDBPV4/STPV06 


RCCOW  PORTADR  GS  GS 


RCOW  ASSIGN  FMT  IPREINT 


RCOW_INTP_DCCNTR  IDCCNTR 


RCOWJNTP_PRECLA  PRECLA 


RCOW^OUT_PREINT  PRINT 


RCOW^PREP_XMIT  IDCEXEC/PREALT 


RCOW_XMIT  DCMOW  IDCMOW 


RCV_CCOW_BLOCK  PRECLA 


READ_ACIA  GS 


READ_CALL_ACK  |PREINT 


READ_DBP  RCOW  GS  |GS 


REDO  DBP  PORT  GS 


REDO  RRUl  GS 


REDO  RRU2  GS 


REDO  RRU3  GS 


REDO  RRU4  GS 


REDO  RRUS  DCMOW  IDCMOW 


Is  Called  by 


SRX 


BRX 


SRX 


STX 


BTX 


COLDS 


DATA_XFER 


INFO  REPORT 


RRRU  STATUS  RPTB 


DATA  XFER 


CALL  COMPLETE 


RRU  PRTY  OUT  05 


INFO  RPT  05 


RRU  CALLCAN  15 


PAGING  05 


STATUS  RPT  A 


LINK_RESULT 


CALL^REQ  05 


CONF  REQ  05 


CALLBACK  05 


RCOW  ASSIGN  05 


USEREXEC 


USEREXEC 


USEREXEC 


USEREXEC 


USEREXEC 


USEREXEC 


CC_EXEC  PRECLA 


TEST  ACIA 


MASTER  FRAME 


COMMAND  FRAME 


DBP  MSG  INTRPRT 


DBP  MSG  INTRPRT 


DISCO  SLOT  CHK 


CALL  REQUEST 


CALL  COMPLETE 


INIT 


RRU_TURNOFF 


SLOT  CON  UPDATE 


PORT  DISCONNECT 


CLEAR  SLOTS  GS 


REDO_RRUS  DCMOW 


REDO  RRUS  PREINT 


WRITE  ACIA 


REDO_RRUS  DCMOW 


REDO  RRUS  PREINT 


WRITE  ACIA 


REDO^RRUS  DCMOW 


REDO  RRUS  PREINT 


WRITE  ACIA 


REDO^RRUS  DCMOW 


REDO  RRUS  PREINT 


WRITE  ACIA 


USEREXEC 


CCOW  INTP  DCMOW 


Located  in 


ISTPV06 


ISTPV06 


STPV06 


ISTPV06 


STPV06 


STPV06 


DCMOW 


DCMOW 


IPREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


IPREINT 


PREINT 


PREINT 


PREINT 


IPREINT 


PREINT 


IPREINT 


pCEXEC 


PREALT 


PREALT 


pCEXEC 


IPREALT 


IPREINT 


PREINT 


pCEXEC 


PREALT 


DCMOW 


DCMOW 


IDCMOW 


PREALT 


[PRECLA 


IPREINT 


PREINT 


pCMOW 


PREINT 


pCMOW 


IPREINT 


pCMOW 


IPREINT 


pCMOW 


IPREINT 


IDCMOW 
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Module  Name 


REDO  RRUS  PREINT 


REINIT  DELAY 


RESET  ACIAS  GS 


Located  in 


PREINT 


pCMOW 


GS 


Is  Called  by 

Located  in 

USEREXEC 

PREALT 

CCOW_INTP_PREINT 

PREINT 

MASTER  FRAME 

DCMOW 

INIT_DCEXEC 

DCEXEC 

INIT 

PREALT 

ENCRYPT_CCOW 

DCEXEC 

DECRYPT_CCOW 

DCEXEC 

DECRYPT_RCOW_GS 

GS 

ENCRYPT^RCOW  GS 

GS 

KG_INITIAL_GS 

GS 

DECRYPT_CCOW  ! 

PREALT 

ENCRYPT_CCOW 

PREALT 

RRU_INTRPRT 

DCMOW 

CALL^REQUEST 

DCMOW 

DATA^XFER 

DCMOW 

GLIST^DISP 

DCMOW 

CALL^COMPLETE 

DCMOW 

INFO_REPORT 

DCMOW 

RRU_INTRPRT 

PREINT 

RRU_STATUS_RPTB 

PREINT 

DATA  XFER 

PREINT 

GLIST_^DISPLAY 

PREINT 

GLISt_DISPLAY_05 

PREINT 

ICALL^COMPLETE 

PREINT 

RRU_PRTY_^OUT 

PREINT 

INFO_REPORT 

PREINT 

INFO_REPORt_^05 

PREINT 

CALL^REQUEST 

PREINT 

CALL^REQ_05 

PREINT 

CONF_REQUEST 

PREINT 

RRU_CALL_CANCEL 

PREINT 

RRU^CALLCAN  05 

PREINT 

GLIST^ENTR^DEL 

PREINT 

GLIST^ENTDEL  05 

PREINT 

GLIST_ENTDEL_10 

PREINT 

PAGING  RCOW 

PREINT 

PAGING_05 

PREINT 

CONF_REQ  05 

jPREINT 

CONFIG_ENTRY 

PREINT 

EXEC 

STPV06 

PWRON 

DBPV4 

FP_RCOW 

PREALT 

StATUS_RPT_B 

PREINT 

INFO^REPORT 

DCMOW 

FPANEL 

“fp 

56 


Module  Name 


SAVE  STP12  GS 


Located  in 


SAVE  STP13  GS 


SAVE  STP18  GS 


SAVE  SW3  GS 


SCCNV 


SEL  PORT  DISCO 


STPV06 


PREINT 


SEND_CCOW  BLOCK 


SEND  RCOW  TO  SAC 


SEQUENCE  LITES 


SET  DBPSTAT  MSG 


IPRECLA 


PRECLA 


pCCNTR 


IDCCNTRyTRECLA 


Is  Called  by 


SWITCH_REDO 


AC  HOME  FREQ  FP 


EXEC  PREALT 


USEREXEC 


EXAM  CCOW  OVRHED 


HOME  CHAN  05 


TIME_^CHK_DCCCNTR 


EXEC  DCEXEC 


USEREXEC 
STP__MSGJNTRPRT 
MASTER^FRAME 
SETUP _ 


USERPREAC 


STP_MSGJNTRPRT 
EXAM_CCOW^OVRHED 
STATUS_PRECLA 
CC_EXEC_PRECLA 
■  TIME_CHK_DCCCNTR 


STATUS  DCCNTR 


USEREXEC 


USERPREAC 


STP  MSG  INTRPRT 


MASTER  FRAME 


RCOW_XMIT  DCMOW 


USEREXEC 


STP  MSG  INTRPRT 


EXAM  CCOW  OVRHED 


TIME  CHK  PRECLA 


STATUS  PRECLA 


RCOW  OUT  PREINT 


MASTER  FRAME 


LINK  TEST  ASIGN 


SETUP_MISC 


AC  HOME  FREQ  FP 


INIT 


SETUP 


EXAM_CCOW  OVRHED 


HOME  CHAN  05 


EXEC 


SLOT  DISCONNECT 


RRU_DISCO 


SLOT  CON  UPDATE 


CALL  COMPLETE 


JUMP  SELECT  1  GS 


JUMP_SELECT_2  GS 


CC  EXEC  PRECLA 


CC  EXEC  PRECLA 


FRAME  CHK  DCCNTR 


STATUS__DCCNTR 


STATUS  PRECLA 


GLIST  ENTDEL  10 


GLIST_ENTDEL  30 


RPT  GLISTl 


RPT  GLIST2 


RPT  GLIST3 


RPT  GLIST4 


Located  in 


IPREALT 


PREALT 


PRECLA 


PREINT 


pCCNTR 


DCEXEC 


DCEXEC 


IDCEXEC 


DCMOW 


PREALT 


PREALT 


PREALT 


IPRECLA 


PRECLA 


PRECLA 


DCCNTR 


DCCNTR 


DCEXEC 


DCEXEC 


DCEXEC 


DCMOW 


DCMOW 


PREALT 


PREALT 


PRECLA 


PRECLA 


PRECLA 


PREINT 


PREINT 


PREINT 


DCEXEC 


FP 


PREALT 


PREALT 


PRECLA 


PREINT 


STPV06 


PREINT 


PREINT 


PREINT 


PREINT 


GS 


GS 


PRECLA 


PRECLA 


DCCNTR 


TDCCNTR 


PRECLA 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 


PREINT 
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Module  Name 

Located  in 

SET_MSG_CODE 

PREINT 

SET  PORT  CC 


SET  PREMPT  FLAG 


SET  SC  FLAG 


SET  TIME  CODE 


SETUP 


SETUP  MISC 


SETUP  1 


SHOWOUT  YZ  GS 


SLOT  CON  UPDATE 


SOFA 


SOFAA 


SRX 


SST 


STATUS  DCCNTR 


STATUS  PRECLA 


STC 


STC4 


STG  LITE  UPDATE 


STP  MSG  INTRPRT 


STRAP  05 


STRAP  READ  GS 


STUFF 


STX 


SUB^KG  TIME  GS 


SWAPLITES  DCEXEC 


IDCCNTR/PRECLA 


IPREINT 


IPREINT 


IPREINT 


IDBPV4/STPV06 


pCEXEC/PREALT 


PBPV4/DCMOW 


SHIFT_EVEN_PORT 

PREINT 

SHIFT__ODD  PORT 

PREINT 

SHIFTLEFT 

GS 

SHIFTRIGHT 

GS 

SHOW^PORT_GS 

GS 

SHOW_WX_GS 

GS  ] 

] 

|SHOW_YZ_GS 

GS  I] 

IPREINT 


PBPV4 


PBPV4 


STPV06 


ISTPV06 


PCCNTR 


PRECLA 


STPV06 


STPV06 


FP 


pCEXEC/PREALT 


IDBPV4 


STPV06 


GS 


DCEXEC 


Is  Called  by 


RPT  GLISTl 


RPT  GLIST2 


RPT  GLIST3 


RPT^GLIST4 _ 


STATUS  DCCNTR 


STATUS  PRECLA 


RRU^DISCO 


SLOT  CON  UPDATE 


SET  XMIT  FLAG 


RRU  DISCO 


SLOT  CON  UPDATE 


INIT 


INIT  DCEXEC 


PWRON 


TDMA 


STATUS  RPT  A 


STATUS  RPT  A 


LOAD_KG  VARS  GS 


LOAD  KG  VARS  GS 


Located  in 


AC_HOME_FREQ_FP 


KG  TIME  TO  DSPLY 


DISP  VWXYZ  GS 


DISP_INFO_REQ_GS 


IFPANEL 


CONFIG  CODE  FP 


SLOT  CONNECT 


SOF 


RBIT  - 


CONS 


IRCWI 


RR2 


EXEC  DCEXEC 


EXEC  PREALT 


ICONFIG  CODE  FP 


rSTC 


STG  CONTROL  FP 


lUSEREXEC 


USERPREAC 


USEREXEC 


USERPREAC 


STRAP_READ  GS 


UNIT  DCEXEC 


SETUP  MISC 


INIT 


TDMA 


[CONS 


PORT^DETECT  GS 


lEXEC  DCEXEC 


USEREXEC 


STP__MSG  INTRPRT 


MASTER  FRAME 


CHAN  CONTROL  FP 


IPREINT 


PREINT 


IPREINT 


IDCCNTR 


PRECLA 


PREINT 


PREINT 


IPREINT 


PREINT 


PREINT 


PREALT 


IDBPV4 


PBPV4 


PREINT 


PREINT 


GS 


[GS 


|GS 


|FP 


FP 


PREINT 


PBPV4 


pBPV4 


STPV06 


STPV06 


STPV06 


IPREALT 


STPV06 


ISTPV06 


FP 


DCEXEC 


DCEXEC 


PREALT 


PREALT 


GS 


IDCEXEC 


DCEXEC 


PREALT 


IDBPV4 


ISTPV06 


IDCEXEC 


DCEXEC 


DCEXEC 


IDCMOW 


TFP 
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Module  Name 


SWITCH  REDO  DCEXEC 


SWITCHIT  GS  GS 


TEST  ACIA  GS 


TIME  CHK  DCCNTR  DCCNTR 


TIME^CHK_PRECLA  PRECLA 


Located  in 


TIME  DELAY 


TIME  FMT 


TS  PREP  DCEXEC 


TS_PREP_PREALT 


IDCMOW/PREINT 


PREINT 


DCEXEC 


PREALT 


Is  Called  by 

Located  in 

EXEC_DCEXEC 

DCEXEC 

EXEC^DCEXEC 

DCEXEC 

SWITCH  REDO 

DCEXEC 

EXEC_PREALT 

PREALT 

INTERUPT  GS 

GS 

USEREXEC 

DCEXEC 

USERPREAC 

DCEXEC 

USEREXEC 

PREALT 

USERPREAC  1 

PREALT 

INFO^REPORT  | 

DCMOW 

RRU_STATUS__RPTB  1 

PREINT 

PAGING_05  , 

PREINT 

INFO  RPT  05 

PREINT 

CALL_^COMPLETE 

PREINT 

RRU_DISCO 

PREINT 

sl6t_con_update 

PREINT 

CALL_QUE^UPDATE 

Pl^INT 

PORT_DISCO_UPDATE 

PREINT 

FRAME^CHK_DCCNTR 

DCCNTR 

USERPREAC 

DCEXEC 

USERPREAC 

PREALT 

FRAME_,CHK_PRECLA 

PRECLA 

BUSY_^ACK 

PREINT 

READ_CALL_ACK 

PREINT 

FPANEL 

FP 

INFO_,REQ__CHK_FP 

FP 

FREQ_TO_DSPLY  FP 

FP 

CONFIG_CODE_FP 

FP 

SHOW_YZ^GS 

GS 

SHOW^WX^^GS 

GS 

ZEROIZE 

DCMOW 

INFO^REQUEST  GS 

GS 

SLOT_DISCONNECT 

PREINT 

PARTY_OUT_OF  SVC 

PREINT 

USERl  SETUP  GS 

PREINT 

ZEROIZE 

PREINT 

CCOW_DATA_XFER 

PREINT 

CALL  IN  QUE 

PREINT 

'CALL_WAITING 

PREINT 

DELET__GUARD_LIST 

PREINT 

ENTER_^GUARD^LIST 

PREINT 

HOME^CHAN^CHANG 

PREINT 

CALL^CANCEL 

PREINT 

FORMAT_CHANGE 

PREINT 

SLOT_CONNECT 

PREINT 

LINK  TEST  “ASIGN 

PREINT 

Module  Name 

Located  in 

Is  Called  by 

Located  in 

XPLUSB_^GS 

GS 

FORMAT  FREQ  FP 

FP 

DC^HOME  FREQ  FP 

FP 

FREQ_TO_DSPLY_FP 

FP 

CALL_COMPLETE 

DCMOW 

CALL_REQUEST 

DCMOW 

BIT_RATE^FIND 

DCMOW 

OUT_OF__SERV_FP 

FP 

DC_HOME^FREQ  FP 

FP 

KG_.TIME_^FP 

FP 

INFO_REQUEST_FP 

F'P 

FP 

CONFER  CALL  FP 

FP 

ZERO_SLOTS_,GS 

GS 

STATUS  DCCNTR 

DCCNTR 

ZEROIZE 

DCMOW 
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Module  Name 

Located  in 

Is  Called  by 

Located  in 

ZEROFILL^GS 

GS 

SPECIAL  CCOW 

DCCNTR 

TIME_CHK_bCCNTR 

DCCNTR 

STATUS_DCCNTR 

DCCNTR 

EXEC_DCEXEC 

DCEXEC 

StP_MSG_INTRPRT 

DCEXEC 

RCOW_XMIT_DCMOW 

bCMOW 

CHAN_CONTROL_FP 

FP 

EXEC_PREALT 

PREALT 

STP_MSG_INTRPRT 

PREALT 

tiME_CHK_PRECLA 

PRECLA 

STATUS_PRECLA 

PRECLA 

MASTER_FRAME 

PREINT 

CONF_^REQ^05 

PREINT 

REDO^RRULGS 

GS 

CLEAR_SLOTS_GS 

GS 
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APPENDIX  C 


A.  PARSER.ADA 


with  text_io;  use  text_io; 
procedure  parser  is 

package  int_io  is  new  integer_io (integer)  ; 
use  int_io; 

subtype  label_range  is  integer  range  1..6; 
subtype  opcode_range  is  integer  range  8 . . 13 ; 
subtype  operand_range  is  integer  range  15.. 20; 

subtype  str6  is  string (1 .. 6) ; 
subtype  strl20  is  string (1 .. 120) ; 

type  call_node; 

type  call_node_ptr  is  access  call_node; 

type  call_node  is  record 
caller  :  integer; 
next  :  call_node_ptr ; 
end  record; 


type  label_node; 

type  label_node_ptr  is  access  label_node; 


type  label_node  is  record 
label  :  str6; 

called_by  :  call_node_ptr ; 

line  :  integer; 

next  :  label_node_ptr; 

end  record; 


label_list 

new_label 

search 

label 

opcode 

operand 

col_nbr 

new_caller 

input_f ile 

output_f ile 


label_node_ptr  :=  null; 

label_node_pt r ; 

label_node__p  t  r  ; 

str6 ; 

str6  ; 

str6; 

natural ; 

call_node_ptr ; 

f ile_type; 

f  ile_type; 


procedure  establish_label_list  is 
line  :  strl20; 

line_nbr  :  integer  :=  0; 

count  :  natural ; 

debug  :  boolean  :=  falser- 

found  :  boolean; 

begin 

while  not  end_of_f  ile  (input_f  ile)  loop 
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get_line (input line,  count); 
line_nbr  :=  line_nbr  +  1; 
put (output_f ile, line_nbr , 4) ; 
put_line (output_f ile, "  "  &  line (1 . .count) ) ; 

--  CHECK  IF  THE  LINE  HAS  A  LABEL 
if  coTont  >  0  then 

if  line(l)  >=  *A*  and  line(l)  <=  then 
if  count  >=  7  then 

label  :=  line (label_range) ; 

if  debug  then  put_line  { "LABEL  IS  "  &  label);  end  if; 

--  CHECK  AND  SEE  IF  THE  LABEL  EXISTS 

search  :=  label_list; 

found  :=  false; 

while  search  /=  null  loop 

if  search. label  =  label  then 
found  true; 
end  if; 

search  ;=  search. next; 
end  loop; 

if  debug  then  put_line ( "SEARCHED  FOR  LABEL  -  "  & 
boolean* image (found) ) ;  end  if; 
if  not  found  then 

--  ENTER  THE  LABEL  INTO  THE  END  OF  THE  LINKED  LIST 

new_label  :=  new  label_node; 

new_label . label  : =  label ; 

new_label . next  : =  nul 1 ; 

new_label .  line  :=  line__nbr; 

search  :=  label_list; 

if  search  =  null  then 

--  FIRST  ITEM  IN  THE  LIST 
label__list  :=  new^label; 
else 

while  search. next  /=  null  loop 
search  :=  search. next; 
end  loop; 

search, next  :=  new__label; 
end  if; 
end  if; 

end  if;  --  count  >  7 
end  if;  --  ’A’  or  *Z* 
end  if;  --  count  >  0 
end  loop; 

end  establish__label_list ; 

procedure  parse_control  is 
line  strl20; 

count  :  natural ; 

line_count  :  integer  :=  0; 

debug  :  boolean  :=  falser- 

found  :  boolean; 

caller  :  call__node_ptr ; 

function  control_opcode (opcode  :  str6)  return  boolean  is 
debug  :  boolean  :=  false; 
begin 

if  debug  then  put (opcode);  end  if; 
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if  opcode 

"BCC 

"  or 

opcode 

= 

"BCS 

"  or 

opcode 

= 

"BEQ 

"  or 

opcode 

= 

"BGE 

"  or 

opcode 

= 

"BGT 

"  or 

opcode 

= 

"BHI 

"  or 

opcode 

= 

"BLE 

"  or 

opcode 

= 

"BLS 

"  or 

opcode 

= 

"BLT 

"  or 

opcode 

= 

"BMI 

"  or 

opcode 

= 

"BNE 

"  or 

opcode 

= 

"BPL 

"  or 

opcode 

"BRA 

"  or 

opcode 

"BSR 

"  or 

opcode 

= 

"BVC 

"  or 

opcode 

= 

"BVS 

"  or 

opcode 

"JMP 

"  or 

opcode 

= 

"JSR 

"  then 

if  debug  then  put_line("  -  TRUE");  end  if; 
if  debug  then  skip_line;  end  if; 
return  true; 
else 

if  debug  then  put__line("  -  FALSE");  end  if; 
if  debug  then  skip_line;  end  if; 
return  false; 
end  if; 

end  control_opcode ; 
begin 

while  not  end_of_f ile {input_f ile)  loop 
get_line  (input__file,  line,  count); 
for  i  in  count  +  1  ..  line 'last  loop 
line (i)  : =  '  ' ; 

end  loop; 

line__count  :=  line_count  +  1; 

if  debug  then  put_line (line (1 .. count) ) ;  end  if; 

CHECK  IF  THE  LINE  ISN'T  A  COMMENT 
if  line(l)  /=  then 
--  NOT  A  COMMENT 

opcode  :=  line (opcode_range) ; 
operand  :=  line (ope rand_range) ; 

if  control_opcode (opcode)  then 

if  debug  then  put_line  ( "FOUND  BRANCH  OPCODE  -  LOOKING  FOR  "  & 
operand) ;  end  if ; 

SEARCH  THE  LABEL  LIST  FOR  THE  OPERAND 
search  :=  label_list; 
found  :=  false; 
while  not  found  loop 

--if  debug  then  put__line  ( "COMPARING  "  &  operand  &  "  TO  "  & 
search. label) ;  end  if; 

if  operand  =  search. label  then 

--  FOUND  MATCH,  ADD  CURRENT  LINE  NUMBER  TO  LIST 
if  debug  then  put_line  ( "FOUND  MATCHING  LABEL  -  ADDING 
LINE  NUMBER");  end  if; 
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--  ADD  TO  END 

new_caller  :=  new  call_node/ 

new_caller .next  :=  null; 
new_caller .caller :=  line_count; 
if  search. called_by  =  null  then 
search. called_by  :=  new_caller; 
else 

caller  :=  search. cal led_by; 
while  caller. next  /=  null  loop 
caller  :=  caller. next; 
end  loop; 

caller. next  ;=  new_caller; 
end  if; 

found  :=  true; 
else 

search  :=  search. next; 
if  search  =  null  then 

put_line( "COULD  NOT  FIND  LABEL  "  &  operand  &  "  AT  LINE 
"  Sc  integer  ’  image  (line_count)  )  ; 

found  :=  true; 
end  if; 
end  if; 
end  loop; 
end  if; 
end  if; 

if  debug  then  skip_line;  end  if; 
end  loop; 

end  parse_control ; 

procedure  report_results  is 
begin 

while  label_list  /=  null  loop 
put {label_list, label  &  ”  (”) ; 
if  label_list . line  <  10  then 
put (label_list. line,  l) ; 
elsif  label__list .  line  <  100  then 
put (label_list . line,  2) ; 
elsif  label_list . line  <  1000  then 
put (label_list .line,  3) ; 
else 

put (label_list .line,  4) ; 
end  if; 
put ( " )  ” ) ; 

while  label_list  .called_by  /=  null  loop 
put ( "  " )  ; 

put  (label_list.called__by.  caller,  4)  ; 
label_list .  called__by  :=  label_list .  called_by .next ; 
end  loop; 

label_list  :=  label_list .next ; 
new_line; 
end  loop; 

end  report_results; 
begin 

open (input_file,  in_file,  "s_dbp.src”) ; 
create (output_file,  out_file,  ”s_dbp.lst") ; 
establish_label_list ; 
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close (input_file) ; 
close (output^file) ; 

open  {input_f  ile,  in_file,  ”s__dbp .  src” )  ; 
parse__control  ; 
close (input_file) ; 
report_results ; 
end  parser; 
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APPENDIX  D 


A.  DATA  BUFFER  PROCESSOR  SOURCE  CODE  LISTING 

3_  ********•*•*★★*•*★*****•********■*•*■■*•***•**********•*■**********•*•**** 

2  * 


3 

* 

BEGIN 

POWER  ON 

INIT 

4 

* 

5 

ORG 

ODCOOH 

6 

PWRON 

LDS 

#00FFFH 

7 

SEI 

8 

LDX 

#IRS 

9 

STX 

0FFF8H 

10 

STAA 

MPUB 

11 

JSR 

INIT 

12 

STAA 

BRATEl 

SET  BIT  RATES  =  75  BPS 

13 

STAA 

BRATE2 

14 

LDAA 

#055H 

**TEST  RAM** 

15 

CLRB 

16 

RAMT 

LDX 

#0FFCH 

17 

RAMTST 

STAA 

0,X 

18 

CMPA 

0,X 

19 

BNE 

RAMERR 

20 

STAA 

MPUB 

21 

DEX 

22 

BNE 

RAMTST 

23 

TSTB 

24 

BNE 

TSTROM 

25 

LDAA 

#0AAH 

TEST  OTHER  RAM  BITS 

26 

INCB 

27 

BRA 

RAMT 

28 

TSTROM 

JSR 

ROMTST 

**NOP  FOR  TESTING** 

29 

JSR 

CLEAR 

30 

BRA 

PWRONl 

31 

RAMERR 

LDAA 

#020H 

**RAM  ERROR** 

32 

STAA 

LATCH2 

***** 

33 

STAA 

MPUB 

CRASH 

34 

BRA 

RAMERR 

***** 

35 

******* ****************************************** ********** 

36 

* 

37 

* 

38 

ROMTST 

CLRA 

**TEST  ROM** 

39 

CLRB 

40 

LDX 

#PWRON 

41 

ROMTSA 

ADDA 

0,X 

42 

ADCB 

#0 

43 

STAA 

MPUB 

44 

INX 

45 

CPX 

#PGMTOP 

46 

BNE 

ROMTSA 

47 

CMPA 

CKSMA 

48 

BNE 

ROMERR 

49 

CMPB 

CKSMB 
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50 

BNE 

ROMERR 

51 

RTS 

52 

* 

53 

ROMERR 

LDAA 

#040H 

**ROM  ERROR** 

54 

STAA 

LATCH2 

*  *  ★  *  * 

55 

STAA 

MPUB 

CRASH 

56 

BRA 

ROMERR 

57 

* 

58 

PWRONl 

JSR 

SETUPl 

59 

LDAA 

PIAIAD 

CLEAR  LATCHED  INPUTS 

60 

LDAA 

PIAIBD 

61 

LDAA 

#09DH 

ENABLE  INTERRUPTS  ON 

62 

STAA 

ACIACS 

63 

CLI 

64 

JMP 

TDMA 

66  * 
67  * 


68  INIT 

LDAA 

#01FH 

MASTER  RESET  ACIA 

69 

STAA 

ACIACS 

DISABLE  INTERRUPTS 

70 

LDAA 

#0FH 

71 

STAA 

LATCH3 

RESET  I/O  FIFOS 

72 

CLRA 

I/O  PORT  &  PIA  INIT 

73 

STAA 

PIAIAC 

74 

STAA 

PIAIBC 

75 

STAA 

lOl  +  l 

76 

STAA 

101+3 

77 

STAA 

102+1 

78 

STAA 

102  +  3 

79 

STAA 

103  +  1 

80 

STAA 

103+3 

81 

STAA 

104  +  1 

82 

STAA 

104  +  3 

83 

STAA 

101 

SET  DATA  DIRECTION  REG 

84 

STAA 

102 

A  -  SIDE  =  INPUTS 

85 

STAA 

103 

FOR  I/O  PORT 

86 

STAA 

104 

87 

COMA 

88 

STAA 

PIAIAD 

89 

STAA 

PIAIBD 

90 

STAA 

101+2 

B-SIDE  =  OUTPUTS 

91 

STAA 

102+2 

FOR  I/O  PORT 

92 

STAA 

103+2 

93 

STAA 

104+2 

94 

LDAA 

#03EH 

SET  CONTROL  REG 

95 

STAA 

PIAIAC 

96 

LDAA 

#02EH 

97 

STAA 

lOl+l 

98 

STAA 

101+3 

99 

STAA 

102+1 

100 

STAA 

102+3 

101 

STAA 

103+1 

102 

STAA 

103+3 

103 

STAA 

104  +  1 

104 

STAA 

104+3 

105 

STAA 

PIAIBC 

106 

LDAA 

PIAIAD 

CLEAR  LATCHED  INPUTS 
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107 

LDAA 

PIAIBD 

108 

CLRA 

109 

STAA 

PIAIAD 

110 

STAA 

LATCHl 

CLEAR  SIGNAL  ACQ.  LINES 

111 

STAA 

LATCH2 

112 

RTS 

113 

*********************************************************** 

114 

* 

115 

* 

116 

CLEAR 

CLRA 

CLEAR  RAM  MEMORY 

117 

LDX 

#0FF8H 

118 

CLEARA 

STAA 

0,X 

119 

DEX 

120 

BNE 

CLEARA 

121 

STAA 

INPTl 

122 

RTS 

123 

*********************************************************** 

124 

* 

125 

* 

126 

SETUP 

BSR 

CLEAR 

127 

SETUPl 

INCA 

128 

STAA 

TDMAFG 

SETUP  RCCOW  &  CCOW  PORTS 

129 

INCA 

130 

STAA 

MSDOl 

131 

STAA 

MSD02 

132 

STAA 

MSD03 

133 

STAA 

MSD04 

134 

LDAA 

#0FH 

INIT  FIFO  MR  INFO 

135 

STAA 

MRFTA 

136 

STAA 

LATCH3 

137 

LDX 

#ERCRX 

138 

STX 

RCRXPT 

139 

LDAA 

DATAl 

CHECK  FOR  'TEST  1'  MODE 

140 

BITA 

#010H 

141 

BEQ 

SETUP3 

142 

LDAA 

#0FH 

143 

STAA 

PTONRX 

144 

LDAA 

#024H 

145 

STAA 

BRATEl 

INIT  BIT  RATES 

146 

STAA 

BRATE2 

FOR  TEST  #1  MODE: 

147 

LDAA 

#020H 

ALL  =  2400  BPS 

148 

STAA 

CHRATl 

149 

STAA 

CHRAT2 

150 

STAA 

CHRAT3 

151 

STAA 

CHRAT4 

152 

SETUP3 

RTS 

153 

*****************+*******★*****★★******★******************* 

154 

* 

155 

* 

156 

TDMA 

STAA 

MPUB 

***BITE  OUTPUT*** 

157 

LDAA 

DATAl 

CHECK  TDMA  SWITCH  FLAG 

158 

BITA 

#020H 

OF  T&C  PROCESSOR 

159 

BNE 

TDMAl 

160 

LDAB 

TDMAFG 

161 

BNE 

TDMAl 

163  * 
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164  *NON-TDMA  SERVICE 

165  * 


166 

BITA 

#01H 

CHECK  NON- TDMA  TX  REQ 

167 

BEQ 

TDMAA 

168 

LDAA 

#01FH 

SET  TX  ACK 

169 

BRA 

TDMAB 

170  TDMAA 

LDAA 

#0FH 

CLEAR  TX  ACK 

171  TDMAB 

STAA 

LATCH3 

172 

BRA 

TDMA 

173  * 

174  TDMAI 

SEI 

175 

JSR 

INIT 

INIT.  FOR  NON- TDMA 

176 

CLR 

TDMAFG 

177 

CLR 

PIAIBD 

178 

LDAA 

DATA3 

RESET  TX  FIFO 

179 

LDAA 

#036H 

180 

STAA 

PIAIAC 

STROBE  "NON- TDMA  START" 

181 

LDAA 

#03EH 

182 

STAA 

PIAIAC 

183 

BRA 

TDMA 

184  * 

185  TDMAI 

LDAA 

TDMAFG 

186 

BNE 

RBI 

187 

STAA 

PTGNRX 

TURN  ALL  PORTS  OFF 

188 

BSR 

SETUPl 

INIT  FOR  TDMA 

189 

LDAA 

#09DH 

ENABLE  RX  INTERRUPTS 

190 

STAA 

ACIACS 

191 

CLI 

192  *********************************************** 

193  * 

194  * 

195  RBI 

LDAA 

PIAIAC 

CHECK  RCV  SETUP  RDY 

196 

BMI 

RBIA 

197 

JMP 

TBI 

198  RBIA 

LDAB 

SIEN 

199 

BEQ 

RBIB 

200 

LDAB 

BITELT 

SYST  INPUT  FIFO  BITE 

201 

GRAB 

#020H 

(RX  FIFO) 

202 

STAB 

BITELT 

203 

CLR 

SIEN 

CLEAR  INPUT  FIFO  FLAGS 

204 

CLR 

SELFTR 

205 

CLR 

FILLFG 

206 

CLR 

INPTRC 

207  * 

208  ***** 

BEGIN 

RECEIVE 

BURST  INIT  ***** 

209  * 

210  RBIB 

LDAB 

PIAIAD 

CLR  LATCHED  STROBE 

211 

LDAA 

DATA4 

LOAD  RCV  SETUP  DATA 

212 

LDAB 

SELFTR 

213 

BEQ 

RBIBA 

214 

LDAB 

BITELT 

*SELF  TEST  FAIL  BITE* 

215 

GRAB 

#080H 

216 

STAB 

BITELT 

217  RBIBA 

ANDA 

#0C7H 

218 

TAB 

219 

ANDA 

#7 

220 

CLR 

MASKIG 
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221 

CMPA 

#1 

222 

BEQ 

RBIIC 

223 

JMP 

RBI2B 

224 

* 

225 

RBIIC 

LDAA 

XMTRQl 

226 

BEQ 

RBIICA 

227 

JMP 

TBI 

228 

RBIICA 

LDAA 

PTONRX 

229 

ANDA 

#1 

230 

BNE 

RBIID 

231 

JMP 

TBI 

232 

RBIID 

GRAB 

CHRATl 

233 

LDAA 

UTl 

234 

BEQ 

RBIIE 

235 

LDAA 

DATA6 

236 

BITA 

#8 

237 

BNE 

RBIIDA 

238 

LDAA 

BITELT 

239 

ORAA 

#2 

240 

STAA 

BITELT 

241 

RBIIDA 

CLR 

UTl 

242 

RBI  IE 

LDAA 

#1 

243 

STAA 

MASKIO 

244 

TSTB 

245 

BMI 

RBIIG 

246 

LDAA 

MSDOl 

247 

BEQ 

RBIIEA 

248 

CLR 

FLBFGl 

249 

LDAA 

#2 

250 

STAA 

MSDOl 

251 

JMP 

TBI 

252 

RBIIEA 

INCA 

253 

STAA 

FMSDOl 

254 

STAA 

MSDOl 

255 

STAA 

FILLFG 

256 

LDAA 

CHCTl 

257 

LDAB 

CHCTl+1 

258 

ADDB 

#32 

259 

ADCA 

#0 

260 

STAA 

MDOCTl 

261 

STAB 

MDOCTl+1 

262 

LDAB 

CHRATl 

263 

BRA 

RBIIHI 

264 

RBIIG 

LDAA 

MSDOl 

265 

CMPA 

#2 

266 

BNE 

RBIIH 

267 

LDAA 

MRFTA 

268 

ORAA 

#1 

269 

STAA 

MRFTA 

270 

STAA 

LATCH3 

271 

RBI IGA 

LDX 

#SBUFF1 

272 

STX 

OUTPTl 

273 

STAA 

FLBFGl 

274 

CLRA 

275 

STAA 

CHCTl 

276 

LDAA 

#0FFH 

277 

TST 

BPS16K 

**PORT  #1  RX  BURST  INIT** 

CHECK  FIFO'S  "O.R. " 

***l/0  FIFO  #1  BITE*** 

INIT  I/O  ON/OFF  MASK 

TWO  OR  MORE  MISSING  DO'S 

**FIRST  MISSING  DO  SETUP** 

SETUP  TO  STUFF 
"FF"  INTO  BUFFER 

ADJ  COUNT  FOR  I/O  FIFO 

TWO  OR  MORE  MISSING  DO'S? 

RESET  I/O  #1  FIFO 

INIT  BUFFER  #1  AND 
I/O  FIFO  #1 

**RX  ELAST  BUFF  CH** 
16KBPS? 
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278 

BEQ 

RBIIGB 

279 

JSR 

STUFF 

16  KBPS  ELASTIC  BUF.  CHARS 

280 

STX 

INPTl 

281 

LDX 

#256 

17  MIN.  ELASTIC  BUFF 

282 

STX 

CHCTl 

283 

BRA 

RBIIH 

284 

RBI 1GB 

STT^ 

SBUFFl 

RCV  BURST 

285 

STAA 

SBUFFl+l 

286 

STAA 

SBUFFl +2 

287 

STAA 

SBUFFl+3 

288 

STAA 

SBUFFl +4 

289 

LDAA 

#5 

290 

STAA 

CHCTl+1 

291 

LDX 

#SBUFFl+5 

292 

STX 

INPTl 

293 

RBIIH 

CLR 

MSDOl 

294 

RBIIHI 

LDX 

# INPTl 

INIT  FOR  INPUT 

295 

STX 

RXPNTR 

FIFO  SERVICE 

296 

LDAA 

BPS16K 

297 

BEQ 

RBIIHA 

16  KBPS? 

298 

LDX 

#EBUFF4 

299 

STX 

RXUVAL 

INIT  16  KBPS  BUFFER  PNTRS . 

300 

LDX 

#SBUFF1 

301 

STX 

RXLVAL 

302 

BRA 

RBIIHB 

303 

RBIIHA 

LDX 

#EBUFF1 

304 

STX 

RXUVAL 

305 

LDX 

#SBUFF1 

306 

STX 

RXLVAL 

307 

RBIIHB 

LDAA 

SIGACQ 

SET  "SIGNAL  ACQ.  I/O  #1" 

308 

ORAA 

#1 

309 

STAA 

SIGACQ 

310 

STAA 

LATCHl 

311 

JMP 

RBIS 

312 

* 

313 

RBI2B 

CMPA 

#2 

314 

BEQ 

RBI2C 

315 

JMP 

RBI3B 

316 

RBI2C 

LDAA 

XMTRQ2 

**PORT  #2  BURST  INIT** 

317 

BEQ 

RBI2CA 

318 

JMP 

TBI 

319 

RBI2CA 

LDAA 

PTONRX 

320 

ANDA 

#2 

321 

BNE 

RBI2D 

322 

JMP 

TBI 

323 

RBI2D 

GRAB 

CHRAT2 

324 

LDAA 

UT2 

325 

BEQ 

RBI2E 

326 

LDAA 

DATA6 

CHECK  FIFO'S  "O.R." 

327 

BITA 

#4 

328 

BNE 

RBI2DA 

329 

LDAA 

BITELT 

***I/0  FIFO  #2  BITE*** 

330 

ORAA 

#4 

331 

STAA 

BITELT 

332 

RBI2DA 

CLR 

UT2 

333 

RBI2E 

LDAA 

#2 

334 

STAA 

MASKIO 

INIT  I/O  ON/OFF  MASK 
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335 

TSTB 

336 

BMI 

RBI2G 

337 

LDAA 

MSD02 

338 

BEQ 

RBI2EA 

339 

CLR 

FLBFG2 

TWO  OR  MORE  MISSING 

DO’ 

'S 

340 

LDAA 

#2 

341 

STAA 

MSD02 

342 

JMP 

TBI 

343 

RBI2EA 

INCA 

**FIRST  MISSING  DO  SETUP** 

344 

STAA 

FMSD02 

345 

STAA 

MSD02 

346 

STAA 

FILLFG 

SETUP  TO  STUFF 

347 

LDAA 

CHCT2 

"FF"  INTO  BUFFER 

348 

LDAB 

CHCT2+1 

349 

ADDB 

#32 

ADJ  COUNT  FOR  I/O  FIFO 

350 

ADCA 

#0 

351 

STAA 

MDOCT2 

352 

STAB 

MDOCT2+1 

353 

LDAB 

CHRAT2 

354 

BRA 

RBI2H1 

355 

RBI2G 

LDAA 

MSD02 

356 

CMPA 

#2 

TWO  OR  MORE  MISSING 

DO' 

S? 

357 

BNE 

RBI2H 

358 

LDAA 

MRFTA 

359 

ORAA 

#2 

RESET  I/O  #2  FIFO 

360 

STAA 

MRFTA 

361 

STAA 

LATCH3 

362 

RBI2GA 

LDX 

#SBUFF2 

INIT  BUFFER  #2  AND 

363 

STX 

OUTPT2 

I/O  FIFO  #2 

364 

STAA 

FLBFG2 

365 

CLRA 

366 

STAA 

CHCT2 

367 

LDAA 

#0FFH 

**RX  ELAST  BUFF  CH* 

* 

368 

TST 

BPS16K 

16KBPS? 

369 

BEQ 

RBI2GB 

370 

JSR 

STUFF 

16KBPS  ELASTIC  BUF. 

CHARS. 

371 

STX 

INPT2 

372 

LDX 

#256 

17  MIN  ELAST  BUFF 

373 

STX 

CHCT2 

374 

LDX 

#SBUFF1 

375 

STX 

OUTPT2 

376 

BRA 

RBI2H 

377 

RBI2GB 

STAA 

SBUFF2 

RCV  BURST 

378 

STAA 

SBUFF2+1 

379 

STAA 

SBUFF2+2 

380 

STAA 

SBUFF2+3 

381 

STAA 

SBUFF2+4 

382 

LDAA 

#5 

383 

STAA 

CHCT2+1 

384 

LDX 

#SBUFF2+5 

385 

STX 

INPT2 

386 

RBI2H 

CLR 

MSD02 

387 

RBI2H1 

LDX 

#INPT2 

INIT  FOR  INPUT 

388 

STX 

RXPNTR 

FIFO  SERVICE 

389 

LDAA 

BPS16K 

390 

BEQ 

RBI2HA 

16  KBPS? 

391 

LDX 

#EBUFF4 
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392 

STX 

RXUVAL 

393 

LDX 

#SBUFF1 

394 

STX 

RXLVAL 

395 

BRA 

RBI2HB 

396 

RBI2HA 

LDX 

#EBUFF2 

397 

STX 

RXUVAL 

398 

LDX 

#SBUFF2 

399 

STX 

RXLVAL 

400 

RBI2HB 

LDAA 

SIGACQ 

401 

ORAA 

#2 

402 

STAA 

SIGACQ 

403 

STAA 

LATCHl 

404 

JMP 

RBIS 

405 

★ 

406 

RBI3B 

CMPA 

#3 

407 

BEQ 

RBI3C 

408 

iJMP 

RBI4B 

409 

RBI3C 

LDAA 

XMTRQ3 

410 

BEQ 

RBI3CA 

411 

JMP 

TBI 

412 

RBI3CA 

LDAA 

PTONRX 

413 

ANDA 

#4 

414 

BNE 

RBI3D 

415 

JMP 

TBI 

416 

RBI3D 

GRAB 

CHRAT3 

417 

LDAA 

UT3 

418 

BEQ 

RBI3E 

419 

LDAA 

DATA6 

420 

BITA 

#2 

421 

BNE 

RBI3DA 

422 

LDAA 

BITELT 

423 

ORAA 

#8 

424 

STAA 

BITELT 

425 

RBI3DA 

CLR 

UT3 

426 

RBI3E 

LDAA 

#4 

427 

STAA 

MASKIO 

428 

TSTB 

429 

BMI 

RBI3G 

430 

LDAA 

MSD03 

431 

BEQ 

RBI3EA 

432 

CLR 

FLBFG3 

433 

LDAA 

#2 

434 

STAA 

MSD03 

435 

JMP 

TBI 

436 

RBI3EA 

INCA 

437 

STAA 

FMSD03 

438 

STAA 

MSD03 

439 

STAA 

FILLFG 

440 

LDAA 

CHCT3 

441 

LDAB 

CHCT3+1 

442 

ADDB 

#32 

443 

ADCA 

#0 

444 

STAA 

MDOCT3 

445 

STAB 

MDOCT3+1 

446 

LDAB 

CHRAT3 

447 

BRA 

RBI3H1 

448 

RBI3G 

LDAA 

MSD03 

INIT.  16KBPS  BUF.  PNTRS . 

SET  "SIGNAL  ACQ.  I/O  #2" 

**PORT  #3  BURST  INIT** 

CHECK  FIFO'S  "O.R. " 

**I/0  FIFO  #3  BITE*** 

INIT  I/O  ON/OFF  MASK 

**FIRST  MISSING  DO  SETUP** 

SETUP  TO  STUFF 
"FF"  INTO  BUFFER 

ADJ  COUNT  FOR  I/O  FIFO 
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449 

CMPA 

#2 

TWO  OR  MORE  MISSING  DO’S? 

450 

BNE 

RBI3H 

451 

LDAA 

MRFTA 

452 

ORAA 

#4 

RESET  I/O  FIFO  #3 

453 

STAA 

MRFTA 

454 

STAA 

LATCH3 

455 

RBI3GA 

LDX 

#SBUFF3 

INIT  BUFFER  #3  AND 

456 

STX 

OUTPT3 

I/O  FIFO  #3 

457 

STAA 

FLBFG3 

458 

CLRA 

459 

STAA 

CHCT3 

460 

LDAA 

#0FFH 

**RX  ELAST  BUFF  CH** 

461 

TST 

BPS16K 

16KBPS? 

462 

BEQ 

RBI3GB 

463 

JSR 

STUFF 

16  KBPS  ELASTIC  BUF.  CHARS 

464 

STX 

INPT3 

465 

LDX 

#256 

17  MIN  ELASTIC  BUFF  . 

466 

STX 

CHCT3 

467 

LDX 

tSBUFFl 

468 

STX 

OUTPT3 

469 

BRA 

RBI3H 

470 

RBI 3GB 

STAA 

SBUFF3 

RCV  BURST 

471 

STAA 

SBUFF3+1 

472 

STAA 

SBUFF3+2 

473 

STAA 

SBUFF3+3 

474 

STAA 

SBUFF3+4 

475 

LDAA 

#5 

476 

STAA 

CHCT3+1 

477 

LDX 

#SBUFF3+5 

478 

STX 

INPT3 

479 

RBI3H 

CLR 

MSD03 

480 

RBI3H1 

LDX 

#INPT3 

INIT  FOR  INPUT 

481 

STX 

RXPNTR 

FIFO  SERVICE 

482 

LDAA 

BPS16K 

483 

BEQ 

RBI3HA 

484 

LDX 

#EBUFF4 

485 

STX 

RXUVAL 

INIT  16KBPS  PNTRS 

486 

LDX 

tSBUFFl 

487 

STX 

RXLVAL 

488 

BRA 

RBI3HB 

489 

RBI3HA 

LDX 

#EBUFF3 

490 

STX 

RXUVAL 

491 

LDX 

#SBUFF3 

492 

STX 

RXLVAL 

493 

RBI3HB 

LDAA 

SIGACQ 

SET  "SIGNAL  ACQ.  I/O  #3” 

494 

ORAA 

#4 

495 

STAA 

SIGACQ 

496 

STAA 

LATCHl 

497 

JMP 

RBIS 

498 

* 

499 

RBI4B 

CMPA 

#4 

500 

BEQ 

RBI4C 

501 

JMP 

RBIJ 

502 

RBI4C 

LDAA 

XMTRQ4 

**PORT  #4  BURST  INIT** 

503 

BEQ 

RBI4CA 

504 

JMP 

TBI 

505 

RBI4CA 

LDAA 

PTONRX 
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506 

ANDA 

#8 

507 

BNE 

RBI4D 

508 

JMP 

TBI 

509 

RBI4D 

GRAB 

CHRAT4 

510 

LDAA 

UT4 

511 

BEQ 

RBI4E 

512 

LDAA 

DATA6 

513 

BITA 

#1 

514 

BNE 

RBI4DA 

515 

LDAA 

BITELT 

516 

ORAA 

#010H 

517 

STAA 

BITELT 

518 

RBI4DA 

CLR 

UT4 

519 

RBI4E 

LDAA 

#8 

520 

STAA 

MASKIO 

521 

TSTB 

522 

BMI 

RBI4G 

523 

LDAA 

MSD04 

524 

BEQ 

RBI4EA 

525 

CLR 

FLBFG4 

526 

LDAA 

#2 

527 

STAA 

MSD04 

528 

JMP 

TBI 

529 

RBI4EA 

INCA 

530 

STAA 

FMSD04 

531 

STAA 

MSD04 

532 

STAA 

FILLFG 

533 

LDAA 

CHCT4 

534 

LDAB 

CHCT4+1 

535 

ADDB 

#32 

536 

ADCA 

#0 

537 

STAA 

MDOCT4 

538 

STAB 

MDOCT4+1 

539 

LDAB 

CHRAT4 

540 

BRA 

RBI4H1 

541 

RBI4G 

LDAA 

MSD04 

542 

CMPA 

#2 

543 

BNE 

RBI4H 

544 

LDAA 

MRFTA 

545 

ORAA 

#08H 

546 

STAA 

MRFTA 

547 

STAA 

LATCH3 

548 

RBI4GA 

LDX 

#SBUFF4 

549 

STX 

0UTPT4 

550 

STAA 

FLBFG4 

551 

CLRA 

552 

STAA 

CHCT4 

553 

LDAA 

#0FFH 

554 

TST 

BPS16K 

555 

BEQ 

RBI4GB 

556 

JSR 

STUFF 

557 

STX 

INPT4 

558 

LDX 

#256 

559 

STX 

CHCT4 

560 

LDX 

#SBUFF1 

561 

STX 

OUTPT4 

562 

BRA 

RBI4H 

CHECK  FIFO'S  "O.R." 

**I/0  FIFO  #4  BITE*** 

INIT  I/O  ON/OFF  MASK 

I 

TWO  OR  MORE  MISSING  DO'S 

**FIRST  MISSING  DO  SETUP** 

SETUP  TO  STUFF 
"FF"  INTO  BUFFER 

ADJ  COUNT  FOR  I/O  FIFO 

TWO  OR  MORE  MISSING  DO'S? 

RESET  I/O  FIFO  #4 

INIT  BUFFER  #4  AND 
I/O  FIFO  #4 

**RX  ELAST  BUFF  CH** 
16KBPS? 

16  KBPS  ELASTIC  BUFF.  CHARS 

17  MIN  ELASTIC  BUFF 
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563 

RBI4GB 

STAA 

SBUFF4  RCV  BURST 

564 

STAA 

SBUFF4+1 

565 

STAA 

SBUFF4+2 

566 

STAA 

SBUFF4+3 

567 

STAA 

SBUFF4+4 

568 

LDAA 

#5 

569 

STAA 

CHCT4+1 

570 

LDX 

#SBUFF4+5 

571 

STX 

INPT4 

572 

RBI4H 

CLR 

MSD04 

573 

RBI4H1 

LDX 

#INPT4  INIT  FOR  INPUT 

574 

STX 

RXPNTR  FIFO  SERVICE 

575 

LDAA 

BPS16K 

576 

BEQ 

RBI4HA 

577 

LDX 

#EBUFF4 

578 

STX 

RXUVAL  INIT  16KBPS  PNTRS 

579 

LDX 

#SBUFF1 

580 

STX 

RXLVAL 

581 

BRA 

RBI4HB  . 

582 

RBI4HA 

LDX 

#EBUFF4 

583 

STX 

RXUVAL 

584 

LDX 

#SBUFF4 

585 

STX 

RXLVAL 

586 

RBI4HB 

LDAA 

SIGACQ  SET  "SIGNAL  ACQ  I/O  #4" 

587 

ORAA 

#8 

588 

STAA 

SIGACQ 

589 

STAA 

LATCHl 

590 

JMP 

RBIS 

591 

592 

593 

•k'k'k’k'k'k’k'k’k-k'k'k'k 

* 

* 

594 

RBIJ 

CMPA 

#7  CHECK  FOR  SELF  TEST  RX  BURS 

595 

BNE 

RBIJA 

596 

STAA 

SELFTR 

597 

LDAA 

#0  INIT.  RX  FIFO  COUNT 

598 

LDAB 

#60 

599 

JMP 

RBIT 

600 

RBIJA 

LDX 

RCRXPT 

601 

CPX 

#ERCRX  R/CCOW  RX  BUFFER  EMPTY? 

602 

BEQ 

RBIK 

603 

PSHA 

**RCCOW/CCOW  ERROR** 

604 

LDAA 

BITELT 

605 

ORAA 

#1 

606 

607 

STAA 

PULA 

BITELT 

608 

LDX 

#ERCRX 

609 

STX 

RCRXPT 

610 

RBIK 

LDX 

#SRCRX 

611 

CMPA 

#6 

612 

BNE 

RBIN 

613 

TSTB 

CCOW  DO? 

614 

BMI 

RBIL 

615 

LDAA 

#0A5H  OUTPUT  CCOW  DO 

616 

RBIKA 

STAA 

ACIAD  ABSENT  CODE  TO  SCU 

617 

618 

* 

JMP 

TBI 

619 

RBIL 

LDAA  ■ 

DATAl  TX  REQUEST  STATUS 
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620 

ANDA 

#0FH 

621 

ORAA 

#0C0H 

622 

STAA 

ACIAD 

SEND  C  CODE  TO  SCP 

623  * 

624 

LDAA 

#0A1H 

CCOW  DO  PRESENT  CODE 

625  RBIM 

STAA 

0,X 

626 

INX 

ADJ  R/CCOW  RX  BUFFER  PNTR 

627 

STX 

RCRXPT 

628 

STAA 

INPTRC 

629 

STAA 

SIEN 

630 

JMP 

TBI 

631  RBIN 

TSTB 

RCCOW  DO? 

632 

BMI 

RBIO 

633 

LDAA 

#0A6H 

RCCOW  DO  ABSENT  CODE 

634 

BRA 

RBIKA 

635  RBIO 

LDAA 

#0A2H 

RCCOW  DO  PRESENT  CODE 

636 

BRA 

RBIM 

637  RBIS 

BSR 

BITRAT 

638 

BRA 

RBIT 

639 

**************************** 

640  * 

641  * 

642  BITRAT 

TST 

BPS16K 

TEST  16KBPS 

643 

BNE 

RBISF 

644 

ASLB 

645 

BMI 

RBIU 

646 

ANDB 

#070H 

647 

BNE 

RBISA 

648 

LDAB 

#13 

75  BPS  ®  1.386  SEC 

649 

CLRA 

13  BYTES 

650 

RTS 

651  RBISA 

CMPB 

#010H 

652 

BNE 

RBISB 

653 

LDAB 

#52 

300  BPS  ®  1.386  SEC 

654 

CLRA 

52  BYTES 

655 

RTS 

656  RBISB 

CMPB 

#020H 

657 

BNE 

RBISC 

658 

LDAB 

#104 

600  BPS  ®  1.386  SEC 

659 

CLRA 

104  BYTES 

660 

RTS 

661  RBISC 

CMPB 

#030H 

662 

BNE 

RBISD 

663 

LDAB 

#208 

1200  BPS  ®  1.386  SEC 

664 

CLRA 

208  BYTES 

665 

RTS 

666  RBISD 

CMPB 

#040H 

667 

BNE 

RBISE 

668 

LDAB 

#OAOH 

2400  BPS  ®  1.386  SEC 

669 

LDAA 

#1 

416  BYTES 

670 

RTS 

671  RBISE 

LDAB 

#04  OH 

4800  BPS  ®  1.386  SEC 

672 

LDAA 

#3 

832  BYTES 

673 

RTS 

674  RBISF 

LDAB 

#0D5H 

16000  BPS  @  1.386  SEC 

675 

LDAA 

#0AH 

2773  BYTES 

676 

RTS 

WBR 

WBR 

WBR 
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677 

RBIU 

LDAB 

#78 

75  BPS  ®  8.32  SEC 

678 

CLRA 

78  BYTES 

679 

RTS 

680 

*********************************************************** 

681 

* 

682 

* 

683 

RBIT 

STAA 

INCHC 

MSB'S  OF  CH.  CNT. 

684 

STAB 

INCHC+1 

LSB'S  OF  CH.  CNT. 

685 

CLRA 

686 

STAA 

INPTRC 

687 

INCA 

688 

STAA 

SIEN 

689 

*‘****“*'-*'Slr**'*-*‘*-**‘*‘****** 

************************************** 

690 

* 

691 

* 

692 

TBI 

LDAA 

CDRDY 

TEST  CCOW  DATA  RDY  FLG. 

693 

BEQ 

TBIl 

694 

CLR 

CDRDY 

695 

LDAA 

PAIAD 

696 

ORAA 

#020H 

SET  DATA  RDY  CCOW* 

697 

BRA 

TBI  2 

698 

TBIl 

LDAA 

RDRDY 

TEST  RCCOW  RDY  FLG. 

699 

BEQ 

TBI  3 

700 

CLR 

RDRDY 

701 

LDAA 

PAIAD 

702 

ORAA 

#010H 

SET  DATA  RDY  RCCOW* 

703 

TBI2 

STAA 

PAIAD 

704 

STAA 

PIAIAD 

705 

TBI3 

LDAA 

IRSBIT 

IRS  BITE? 

706 

BEQ 

TBI4 

707 

LDAA 

BITELT 

708 

ORAA 

#01H 

709 

STAA 

BITELT 

710 

TBI4 

LDAA 

PiAlBC 

CHECK  TX  SETUP  iCfeADY 

711 

BMI 

TBIA 

712 

JMP 

lOlPT 

713 

TBIA 

LDAA 

SOEN 

714 

BEQ 

TBIB 

715 

LDAB 

BITELT 

SYST  OUTPUT  FIFO  BITE 

716 

ORAB 

#040H 

(TX  FIFO) 

717 

STAB 

BITELT 

718 

* 

719 

***** 

BEGIN 

TRANSMIT  BURST  INITIALIZATION  ***** 

720 

* 

721 

TBIB 

LDAA 

PIAIBD 

CLR  LATCHED  STROBE 

722 

LDAA 

DATA3 

LOAD  TX  SETUP  DATA 

723 

LDAB 

DATA5 

CHECK  TX  INHIBIT 

724 

BITB 

#1 

725 

BEQ 

TIBA 

726 

ANDA 

#7 

727 

CMPA 

#7 

728 

BEQ 

TBIBA 

729 

JMP 

lOlPT 

TX  INHIBIT:  ABORT 

730 

TBIBA 

JMP 

TBIG 

ALLOW  SELF  TEST  BURST 

731 

TIBA 

ANDA 

#047H 

732 

TAB 

733 

ANDA 

#7 
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734 

CMPA 

#1 

735 

BNE 

TBI2B 

736 

LDAA 

PTONRX 

IS  PORT  ON? 

737 

BITA 

#1 

738 

BNE 

TBIIBA 

739 

JMP 

lOlPT 

ABORT :  PORT  IS 

740  * 

741  TBIIBA 

TST 

BPS16K 

742 

BEQ 

TBIIE 

743 

LDX 

#SBUFF1 

16  KBPS 

744 

STX 

TXLVAL 

745 

LDX 

#EBUFF4 

746 

STX 

TXUVAL 

747 

BRA 

TBIIEA 

748  TBIIE 

LDX 

#SBUFF1 

INIT  FOR  OUTPUT 

749 

STX 

TXLVAL 

FIFO  SERVICE 

750 

LDX 

#EBUFF1 

751 

STX 

TXUVAL 

752  TBIIEA 

LDX 

#INPT1  • 

753 

STX 

TXPNTR 

754 

CLRA 

755 

STAA 

UTl 

756 

STAA 

MDOCTl 

757 

STAA 

MDOCTl+1 

758 

STAA 

FMSDOl 

759 

LDAA 

#2 

760 

STAA 

MSDOl 

761 

LDAA 

#0FEH 

762 

STAA 

XMASK 

763 

LDAA 

#0EFH 

764 

STAA 

MASKR 

765 

LDAA 

GROUPl 

766 

BEQ 

TBIIF 

767 

STAA 

GRPIFG 

768  TBIIF 

CLRA 

769 

STAA 

GROUPl 

770 

GRAB 

CHRATl 

771 

JMP 

TBIN 

772  * 

773  TBI2B 

CMPA 

#2 

774 

BNE 

TBI3B 

775 

LDAA 

PTONRX 

IS  PORT  ON? 

776 

BITA 

#2 

111 

BNE 

TBI2BA 

778 

JMP 

lOlPT 

ABORT:  PORT  IS  ' 

779  TBI2BA 

TST 

BPS16K 

780 

BEQ 

TBI2E 

781 

LDX 

#SBUFF1 

16  KBPS 

782 

STX 

TXLVAL 

783 

LDX 

#EBUFF4 

784 

STX 

TXUVAL 

785 

BRA 

TBI2EA 

786  TBI2E 

LDX 

#SBUFF2 

INIT.  FOR  OUTPUT 

787 

STX 

TXLVAL 

FIFO  SERVICE 

788 

LDX 

#EBUFF2 

789 

STX 

TXUVAL 

790  TBI2EA 

LDX 

#INPT2 

82 


791 

STX 

TXPNTR 

792 

CLRA 

793 

STAA 

UT2 

794 

STAA 

MDGCT2 

795 

STAA 

MDGCT2+1 

796 

STAA 

FMSDG2 

797 

LDAA 

#2 

798 

STAA 

MSDG2 

799 

LDAA 

#0FDH 

800 

STAA 

XMASK 

801 

LDAA 

#0DFH 

802 

STAA 

MASKR 

803 

LDAA 

GRGUP2 

804 

BEQ 

TBI2F 

805 

STAA 

GRPIFG 

806 

TBI2F 

CLRA 

807 

STAA 

GRGUP2 

808 

GRAB 

CHRAT2 

809 

jiyip 

TBIN 

810 

* 

811 

TBI3B 

CMPA 

#3 

812 

BNE 

TBI4B 

813 

LDAA 

PTGNRX 

814 

BITA 

#4 

815 

BNE 

TBI3BA 

816 

JMP 

IGIPT 

817 

TBI3BA 

TST 

BPS16K 

818 

BEQ 

TBI3E 

819 

LDX 

#SBUFF1 

820 

STX 

TXLVAL 

821 

LDX 

#EBUFF4 

822 

STX 

TXUVAL 

823 

BRA 

TBI3EA 

824 

TBI3E 

LDX 

#SBUFF3 

825 

STX 

TXLVAL 

826 

LDX 

#EBUFF3 

827 

STX 

TXUVAL 

828 

TBI3EA 

LDX 

#INPT3 

829 

STX 

TXPNTR 

830 

CLRA 

831 

STAA 

UT3 

832 

STAA 

MDGCT3 

833 

STAA 

MDGCT3+1 

834 

STAA 

FMSD03 

835 

LDAA 

#2 

836 

STAA 

MSDG3 

837 

LDAA 

#0FBH 

838 

STAA 

XMASK 

839 

LDAA 

#0BFH 

840 

STAA 

MASKR 

841 

LDAA 

GRGUP3 

842 

BEQ 

TBI3F 

843 

STAA 

GRPIFG 

844 

TBI3F 

CLRA 

845 

STAA 

GRGUP3 

846 

GRAB 

CHRAT3 

847 

JMP 

TBIN 

15  PORT  ON? 

ABORT:  PORT  IS  OFF 

16  KBPS 

INIT.  FOR  OUPTUT 
FIFO  SERVICE 
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848  * 


849  TBI4B 

CMPA 

#4 

850 

BNE 

TBIG 

851 

LDAA 

PTONRX 

852 

BITA 

#8 

853 

BNE 

TBI4BA 

854 

JMP 

lOlPT 

855  TBI4BA 

TST 

BPS16K 

856 

BEQ 

TBI4E 

857 

LDX 

#SBUFF1 

858 

STX 

TXLVAL 

859 

LDX 

#EBUFF4 

860 

STX 

TXUVAL 

861 

BRA 

TBI4EA 

862  TBI4E 

LDX 

#SBUFF4 

863 

STX 

TXLVAL 

864 

LDX 

#EBUFF4 

865 

STX 

TXUVAL 

866  TBI4EA 

LDX 

#INPT4 

867 

STX 

TXPNTR 

868 

CLRA 

869 

STAA 

UT4 

870 

STAA 

MD0CT4 

871 

STAA 

MDOCT4+1 

872 

STAA 

FMSD04 

873 

LDAA 

#2 

874 

STAA 

MSD04 

875 

LDAA 

#0F7H 

876 

STAA 

XMASK 

877 

LDAA 

#07FH 

878 

STAA 

MASKR 

879 

LDAA 

GROUP4 

880 

BEQ 

TBI4F 

881 

STAA 

GRPIFG 

882  TBI4F 

CLRA 

883 

STAA 

GR0UP4 

884 

GRAB 

CHRAT4 

885 

JMP 

TBIN 

886  * 

887  TBIG 

CMPA 

#7 

888 

BNE 

TBIGA 

889 

STAA 

SOEN 

890 

STAA 

SELFTT 

891 

LDX 

#08000H 

892 

STX 

TXPNTR 

893 

LDX 

#28 

894 

STX 

OUTCHC 

895  . 

LDAA 

#32 

896 

LDAB 

#033H 

897  TBIGl 

STAB 

PIAIBD 

898 

DECA 

899 

BNE 

TBIGl 

900 

JMP 

RBI 

901  TBIGA 

CMPA 

#6 

902 

BNE 

TBIJ 

903 

LDAA 

PAIAD 

904 

BITA 

#020H 

15  PORT  ON? 

ABORT:  PORT  IS  OFF 

16  KBPS 

INIT .  FOR  OUTPUT 
FIFO  SERVICE 


CHECK  FOR  SELF  TEST  TX  BURS 

DUMMY  VALUE  FOR  TXPNTR 
SELF  TEST  CH  CNT  -  32 

SELF  TEST  TX  CHAR 

OUTPUT  32  SELF  TEST 
CHARS.  TO  TX  FIFO 

IF  NO  DATA  READY,  OUTPUT 
13  BYTES  OF  11001100 
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905 

BNE 

TBIGC 

906 

LDAA 

#0CCH 

907 

LDX 

#13 

908 

TBIGB 

STAA 

PIAIBD 

909 

DEX 

910 

BNE 

TBIGB 

911 

BRA 

TBIHB 

912 

TBIGC 

LDX 

tSCTXB 

913 

STX 

CTXPT 

914 

TBIH 

LDAA 

0,X 

915 

STAA 

PIAIBD 

916 

INX 

917 

CPX 

#ECTXB 

918 

BNE 

TBIH 

919 

LDAA 

PAIAD 

920 

ANDA 

#0DFH 

921 

TBIHA 

STAA 

PIAIAD 

922 

STAA 

PAIAD 

923 

* 

924 

* 

925 

TBIHB 

ASLB 

926 

BMI 

TBIHC 

927 

JMP 

lOlPT 

928 

TBIHC 

CLRA 

929 

STAA 

PIAIBD 

930 

STAA 

PIAIBD 

931 

STAA 

PIAIBD 

932 

JMP 

lOlPT 

933 

TBIJ 

LDX 

#SRTXB 

934 

STX 

RTXPT 

935 

TBIK 

LDAA 

0,X 

936 

STAA 

PIAIBD 

937 

INX 

938 

CPX 

#ERTXB 

939 

BNE 

TBIK 

940 

LDAA 

PAIAD 

941 

ANDA 

#0EFH 

942 

BRA 

TBIHA 

943 

TBIN 

JSR 

BITRAT 

944 

TBIO 

STAA 

OUTCHC 

945 

STAB 

OUTCHC+1 

946 

CLRA 

947 

INCA 

948 

STAA 

SOEN 

949 

TBIQ 

LDX 

TXPNTR 

950 

LDAA 

GRPIFG 

951 

BEQ 

TBIS 

952 

TBIQl 

LDAA 

OUTCHC 

953 

LDAB 

OUTCHC+1 

954 

ADDB 

#6 

955 

ADCA 

#0 

956 

SUBB 

5,X 

957 

SBCA 

4,X 

958 

BCS 

TBIR 

959 

BNE 

TBIRA 

960 

TSTB 

961 

BNE 

TBIRA 

**N0  CCOW  DATA  RDY** 


PUT  CHAR  IN  OUTPUT  FIFO 

CLR  DATA  READY  CCOW 


PUT  CHAR  IN  OUTPUT  FIFO 

CLR  DATA  READY  RCCOW 

GET  TX  CH.  CNT. 

MSB'S  OF  CH.  CNT. 

LSB'S  OF  CH.  CNT. 

CHECK  IF  FIRST  GROUP 

***COMPUTE  FILL  COUNT*** 

ADD  ELASTIC  BUFF (48  BITS) 

BURST  CH  CNT  +  ELASTIC  BUFF 
-  BUFF  CH  CNT  =  FILL  COUNT 
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962 

TBIR 

CLR 

GRPIFG 

963 

BRA 

TBIS 

NO  FILL  REQUIRED 

964 

TBIRA 

STAA 

FILLCT 

965 

STAB 

FILLCT+1 

966 

LDAA 

4,X 

NUMBER  OF  GOOD  CHARS  IN  FIR 

967 

LDAB 

5,X 

BURST=BUFF  CH  CNT  -  ELASTIC 

968 

SUBB 

#6 

SUBT  ELASTIC  BUFF (48  BITS) 

969 

SBCA 

#0 

970 

BCC 

TBIRB 

971 

CLRA 

ERROR:  ELASTIC  BUFFER  NOT 

972 

STAA 

SOEN 

YET  FULL  FOR  TRANSMISSION 

973 

LDAA 

BITELT 

974 

ORAA 

#040H 

**TX  FIFO  BITE  LITE  ON** 

975 

STAA 

BITELT 

976 

BRA 

101 PT 

977 

TBIRB 

STAA 

OUTCHC 

978 

STAB 

OUTCHC+1 

979 

TBIS 

JSR 

SOFAA 

*SERVICE  OUTPUT  FIFO* 

980 

**********************************************^ 

981 

* 

982 

* 

983 

* 

984 

lOlPT 

LDAA 

PTONRX 

PORT  #1  ON? 

985 

ANDA 

#1 

986 

BEQ 

lOlAl 

987 

CLR 

PIOFF 

988 

JMP 

lOlA 

989 

lOlAl 

LDAA 

PIOFF 

PORT  IS  OFF 

990 

BEQ 

I01A2 

991 

JMP 

I02PT 

992 

I01A2 

STAA 

CHCTl 

993 

STAA 

CHCTl+1 

994 

STAA 

XMTRQl 

995 

STAA 

UTl 

996 

LDX 

#0 

997 

STX 

LGDPTl 

998 

STAA 

OUFGl 

999 

STAA 

EMPTYl 

1000 

LDAA 

#2 

1001 

STAA 

MSDOl 

1002 

INCA 

1003 

STAA 

FLBFGl 

1004 

LDAA 

MRFTA 

1005 

ORAA 

#1 

RESET  FIFO  I/O  #1 

1006 

ANDA 

#0EFH 

CLR  "XMT  ACK" 

1007 

STAA 

MRFTA 

1008 

STAA 

LATCH3 

1009 

STAA 

PIOFF 

1010 

LDAA 

PAIAD 

1011 

ANDA 

#0FEH 

CLEAR  "DATA  RDY  PORT  #1" 

1012 

STAA 

PAIAD 

1013 

STAA 

PIAIAD 

1014 

LDX 

#SBUFF1 

1015 

STX 

INPTl 

1016 

STX 

OUTPTl 

1017 

LDAA 

SIGACQ 

CLR  "SIGNAL  ACQ.  I/O  #1 

1018 

ANDA 

#0FEH 
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1019 

STAA 

SIGACQ 

1020 

STAA 

LATCHl 

1021 

LDX 

TXPNTR 

1022 

CPX 

#INPT1 

1023 

BNE 

I01A3 

1024 

CLR 

SOEN 

1025 

I01A3 

JMP 

102 PT' 

1026 

*********************************************************** 

1027 

* 

1028 

*  INPUT  SERVICE  SUBROUTINE 

1029 

* 

1030 

lOlLS 

LDAA 

#1 

1031 

STAA 

XFERl 

1032 

LDAA 

101 

OBTAIN  CHAR 

1033 

LDX 

INPTl 

GET  PUT  PNTR 

1034 

STAA 

0,X 

PUT  IT 

1035 

INX 

INCR  PUT  PNTR 

1036 

CPX 

OUTPTl 

TEST  OVERFLOW 

1037 

BNE 

lOlLSX 

BRANCH  NO  OVERFLOW 

1038 

LDAA 

MRFTA 

**OVERFLOW** 

1039 

ANDA 

#0EFH 

CLR  "XMT  ACK" 

1040 

ORAA 

#1 

RESET  FIFO 

1041 

STAA 

MRFTA 

1042 

STAA 

LATCH3 

1043 

STAA 

OUFGl 

SET  OUFG  FLAG 

1044 

INS 

* REMOVE  RETURN 

1045 

INS 

* 

1046 

JMP 

102  PT 

1047 

lOlLSX 

LDAA 

BPS16K 

1048 

BEQ 

lOlLSA 

1049 

CPX 

#EBUFF4 

16  KBPS 

1050 

BNE 

lOlLSB 

1051 

LDX 

#SBUFF1 

1052 

BRA 

lOlLSB 

1053 

lOlLSA 

CPX 

#EBUFF1 

TEST  END  OF  INPUT 

1054 

BNE 

lOlLSB 

NO 

1055 

LDX 

#SBUFF1 

GET  INITIAL  VALUE 

1056 

lOlLSB 

STX 

INPTl 

1057 

LDX 

CHCTl 

GET  CHAR  COUNT 

1058 

INX 

INCR  COUNT 

1059 

STX 

CHCTl 

PUT  BACK 

1060 

RTS 

1061 

*********************************************************** 

1062 

* 

1063 

*LOAD  I/O  #1 

FIFO  WITH 

1  CHAR.  ROUTINE 

1064 

* 

1065 

lOlLF 

LDX 

OUTPTl 

1066 

LDAA 

RXINHB 

WBR 

1067 

BITA 

#1 

IS  THE  EXTEND  TRANSMIT  FLAG  SET?  WBR 

1068 

BNE 

lOlLFl 

YES:RX  NOT  ALLOWED  WBR 

1069 

LDAA 

0,X 

1070 

STAA 

101+2 

OUTPUT  CH.  TO  I/O  #1  FIFO 

1071 

lOlLFl 

INX 

1072 

IjDAB 

BPS16K 

1073 

BEQ 

lOlLFA 

1074 

CPX 

#EBUFF4 

16  KBPS 

1075 

BNE 

lOlLFB 
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1076 

LDX 

#SBUFF1 

1077 

BRA 

lOlLFB 

1078 

lOlLFA 

CPX 

#EBUFF1 

1079 

BNE 

lOlLFB 

1080 

LDX 

#SBUFF1 

1081 

lOlLFB 

STX 

OUTPTl 

1082 

LDAA 

#1 

1083 

STAA 

XFERl 

1084 

LDAA 

FMSDOl 

TEST  MISSING  DO 

1085 

BEQ 

lOlLFC 

1086 

LDX 

MDOCTl 

1087 

DEX 

1088 

STX 

MDOCTl 

1089 

BNE 

lOlLFC 

1090 

LDAA 

SIGACQ 

1091 

ANDA 

#0FEH 

1092 

STAA 

SIGACQ 

1093 

STAA 

LATCHl 

1094 

CLR 

FMSDOl 

1095 

lOlLFC 

LDX 

CHCTl 

ADJUST  CHAR  COUNT 

1096 

DEX 

1097 

STX 

CHCTl 

1098 

BNE 

lOlLFD 

1099 

INS 

REMOVE  RETURN 

1100 

INS 

1101 

JMP 

lOlYEl 

GO  CHECK  UNDERFLOW 

1102 

lOlLFD 

RTS 

1103  *********************************************************** 

1104  * 

1105  *LOAD  I/O  #1  FIFO  WITH  3  BUF.  CH.  ROUTINE 

1106  * 


1107  LDl 

LDX 

OUTPTl 

1108 

LDAA 

0,X 

1109 

STAA 

101+2 

1110 

LDAA 

i,x 

1111 

STAA 

101+2 

1112 

LDAA 

2,X 

1113 

STAA 

101+2 

1114 

INX 

1115 

INX 

1116 

INX 

1117 

STX 

OUTPTl 

1118 

LDX 

CHCTl 

1119 

DEX 

1120 

DEX 

1121 

DEX 

1122 

STX 

CHCTl 

1123 

RTS 

1125 

* 

1126 

***★* 

BEGIN 

SERVICING 

I/O  PORT 

1127 

★ 

1128 

lOlA 

LDAA 

PTONRX 

RX  ONLY? 

1129 

BITA 

#010H 

1130 

BEQ 

lOlAA 

1131 

JMP 

lOlY 

1132 

lOlAA 

LDAA 

DATAl 
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1133 

BITA 

#1 

1134 

BNE 

lOlB 

1135 

JMP 

lOlY 

1136 

lOlB 

ASLA 

1137 

BPL 

lOlC 

1138 

LDAA 

XMTRQl 

1139 

BNE 

lOlC 

1140 

LDAA 

EMPTYl 

1141 

BNE 

lOlCA 

1142 

LDX 

CHCTl 

1143 

BEQ 

lOlBB 

1144 

lOlBA 

JMP 

lOlYD 

1145 

lOlBB 

LDAA 

DATA6 

1146 

BITA 

#8 

1147 

BNE 

lOlBA 

1148 

lOlC 

LDAA 

XMTRQl 

1149 

BNE 

lOlD 

1150 

LDAA 

EMPTYl 

1151 

BEQ 

lOlE 

1152 

101 CA 

CLR 

EMPTYl 

1153 

STAA 

XMTRQl 

1154 

LDX 

#0 

1155 

STX 

LGDPTl 

1156 

LDAA 

MRFTA 

1157 

ORAA 

#010H 

1158 

STAA 

MRFTA 

1159 

STAA 

LATCH3 

1160 

lOlD 

LDAA 

OUFGl 

1161 

BEQ 

lOlH 

1162 

STAA 

XFERl 

1163 

JMP 

102  PT 

1164 

lOlE 

LDAA 

DATA5 

1165 

ANDA 

#1 

1166 

BEQ 

lOlF 

1167 

JMP 

102  PT 

1168 

lOlF 

LDAA 

#1 

1169 

STAA 

XMTRQl 

1170 

STAA 

GROUPl 

1171 

STAA 

XFERl 

1172 

STAA 

FLBFGl 

1173 

LDAA 

SIGACQ 

1174 

ORAA 

#010H 

1175 

ANDA 

#0FEH 

1176 

STAA 

SIGACQ 

1177 

STAA 

LATCHl 

1178 

LDAA 

MRFTA 

1179 

ORAA 

#1 

1180 

STAA 

LATCH3 

1181 

CLR 

101+2 

1182 

ANDA 

#0FEH 

1183 

ORAA 

#010H 

1184 

STAA 

MRFTA 

1185 

STAA 

LATCH3 

1186 

LDX 

#SBUFFl+6 

1187 

STX 

INPTl 

1188 

LDX 

#SBUFF1 

1189 

STX 

OUTPTl 

R/T  SELECTED:  CHECK  RCV  DON 

TEST:  I/O  FIFO  UNDERFLOW 
BRANCH:  NO  UNDERFLOW 

GET  HERE  W/MULTIPLE 
TX  REQ  PER  FRAME 

SET  "TX  ACK" 


CHECK  TX  INHIBIT 


**INIT  FOR  PORT  #1** 
**DATA  TRANSMISSION** 


SELECT  I/O  INPUT  MODE 
CLR  "SIG.  ACQ.  #1" 

TOGGLE  FIFO'S  RESET 
CLR  PI A  B-SIDE 
SET  "XMT  ACK"  I/O  #1 
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1190 

LDAA 

#0FFH 

1191 

STAA 

0,X 

1192 

STAA 

i,x 

1193 

STAA 

2,X 

1194 

STAA 

3,X 

1195 

STAA 

4,X 

1196 

STAA 

5,X 

1197 

LDX 

#6 

1198 

STX 

CHCTl 

1199 

JMP 

102  PT 

1200  lOlG 

LDX 

#SBUFF1 

1201 

STX 

INPTl 

1202 

STX 

OUTPTl 

1203 

LDX 

#0 

1204 

STX 

CHCTl 

1205 

LDAA 

SIGACQ 

1206 

ANDA 

#0FEH 

1207 

STAA 

SIGACQ 

1208 

STAA 

LATCHl 

1209 

JMP 

I02PT 

1210  lOlH 

LDAA 

DATA5 

1211 

ANDA 

#1 

1212 

BEQ 

lOlHA 

1213 

JMP 

lOlYAl 

1214  lOlHA 

LDAB 

FLBFGl 

1215 

BEQ 

lOlHB 

1216 

JMP 

1010 

1217  lOlHB 

LDAA 

DATA6 

1218 

BITA 

#8 

1219 

BNE 

lOlI 

1220 

JMP 

lOlXP 

1221  lOlI 

JSR 

lOlLS 

1222 

LDAA 

DATA6 

1223 

BITA 

#8 

1224 

BNE 

lOlK 

1225 

JMP 

lOlXP 

1226  lOlK 

JSR 

lOlLS 

1227 

LDAA 

DATA6 

1228 

BITA 

#8  ' 

1229 

BNE 

lOlM 

1230 

JMP 

lOlXP 

1231  lOlM 

JSR 

lOlLS 

1232 

LDAA 

DATA6 

1233 

BITA 

#8 

1234 

BNE 

I01N2 

1235 

JMP 

lOlXP 

1236  I01N2 

JSR 

lOlLS 

1237 

LDAA 

BPS16K 

1238 

BNE 

I01N3 

1239 

JMP 

lOlXP 

1240  I01N3 

LDAA 

DATA6 

1241 

BITA 

#8 

1242 

BNE 

I01N4 

1243 

JMP 

lOlXP 

1244  I01N4 

JSR 

lOlLS 

1245 

LDAA 

DATA6 

1246 

BITA 

#8 

STUFF  6  ELASTIC 
BUFFER  CHARACTERS  (CC) 


CLR  "SIGNAL  ACQ.  I/O  #1 

CHECK  TX  INHIBIT 

TEST  FIFO  "O.R." 

LOAD  &  STORE  1  CHAR 

LOAD  &  STORE  2  CHAR 

LOAD  &  STORE  3  CHAR 

LOAD  &  STORE  4  CHAR 

*16KBPS:  ALLOW  MORE* 

*1/0  SERVICING* 

LOAD  &  STORE  5  CHAR. 
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1247 

BNE 

I01N5 

1248 

JMP 

lOlXP 

1249 

I01N5 

JSR 

lOlLS 

1250 

LDAA 

DATA6 

1251 

BITA 

#8 

1252 

BNE 

I01N6 

1253 

JMP 

lOlXP 

1254 

I01N6 

JSR 

lOlLS 

1255 

LDAA 

DATA6 

1256 

BITA 

#8 

1257 

BNE 

I01N7 

1258 

JMP 

lOlXP 

1259 

I01N7 

JSR 

lOlLS 

1260 

LDAA 

DATA6 

1261 

BITA 

#8 

1262 

BNE 

I01N8 

1263 

JMP 

lOlXP 

1264 

I01N8 

JSR 

lOlLS 

1265 

LDAA 

DATA6 

1266 

BITA 

#8 

1267 

BNE 

I01N9 

1268 

JMP 

lOlXP 

1269 

I01N9 

JSR 

lOlLS 

1270 

LDAA 

DATA6 

1271 

BITA 

#8 

1272 

BNE 

lOlNlO 

1273 

JMP 

lOlXP 

1274 

lOlNlO 

JSR 

lOlLS 

1275 

JMP 

lOlXP 

1276 

1010 

LDAA 

DATA6 

1277 

BITA 

#8 

1278 

BEQ 

lOlXP 

1279 

lOlP 

CLR 

FLBFGl 

1280 

LDAA 

PAIAD 

1281 

ORAA 

#1 

1282 

STAA 

PAIAD 

1283 

STAA 

PIAIAD 

1284 

JMP 

lOlI 

1285 

lOlXP 

LDAA 

EMPTYl 

1286 

BPL 

lOlXQ 

1287 

LDX 

INPTl 

1288 

STX 

LGDPTl 

1289 

LDAA 

#1 

1290 

STAA 

EMPTYl 

1291 

lOlXQ 

JMP 

I02PT 

1292 

lOlY 

LDAA 

XMTRQl 

1293 

BEQ 

lOlYB 

1294 

LDAA 

MRFTA 

1295 

ANDA 

#0EFH 

1296 

STAA 

MRFTA 

1297 

STAA 

LATCH3 

1298 

CLR 

XMTRQl 

1299 

LDAA 

#0FFH 

1300 

STAA 

EMPTYl 

1301 

LDAA 

PAIAD 

1302 

ANDA 

#1 

1303 

BNE  ' 

lOlYA 

LOAD  &  STORE  6  CHAR. 

LOAD  &  STORE  7  CHAR. 

LOAD  &  STORE  8  CHAR. 

LOAD  &  STORE  9  CHAR. 

LOAD  &  STORE  10  CHAR. 

LOAD  &  STORE  11  CHAR. 

SET  "DATA  RDY  PORT  #1" 

**TEST  IF  SETUP** 

**LAST  GOOD  DATA  PNTR** 
DO  SETUP 

CLEAR  "TX  ACK" 

FIRST  TIME  THAT 
TX  REQ  =  FALSE 
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1304 

STAA 

CHCTl 

1305 

STAA 

CHCTl+l 

1306 

STAA 

EMPTYl 

1307 

INCA 

1308 

STAA 

FLBFGl 

1309 

LDAA 

MRFTA 

1310 

ORAA 

#1 

1311 

STAA 

MRFTA 

1312 

STAA 

LATCH3 

1313 

JMP 

102  PT 

1314 

lOlYA 

JMP 

lOlD 

1315 

lOlYB 

LDAA 

EMPTYl 

1316 

BNE 

lOlYA 

1317 

JMP 

lOlYD 

1318 

lOlYAl 

CLRA 

1319 

STAA 

XMTRQl 

1320 

STAA 

EMPTYl 

1321 

LDAA 

PAIAD 

1322 

ANDA 

#0FEH 

1323 

STAA 

PIAIAD 

1324 

STAA 

PAIAD 

1325 

LDAA 

MRFTA 

1326 

ORAA 

#1 

1327 

ANDA 

#0EFH 

1328 

STAA 

MRFTA 

1329 

STAA 

LATCH3 

1330 

lOlYC 

LDAA 

MRFTA 

1331 

ORAA 

#1 

1332 

STAA 

MRFTA 

1333 

STAA 

LATCH3 

1334 

LDAA 

SIGACQ 

1335 

ANDA 

#0EFH 

1336 

STAA 

SIGACQ 

1337 

STAA 

LATCHl 

1338 

lOlYCl 

CLR 

FMSDOl 

1339 

LDAA 

#2 

1340 

STAA 

MSDOl 

1341 

STAA 

FLBFGl 

1342 

JMP 

lOlG 

1343 

lOlYD 

LDAA 

FLBFGl 

1344 

BEQ 

lOlYF 

1345 

STAA 

XFERl 

1346 

LDAA 

CHCTl +1 

1347 

CMPA 

#10 

1348 

BGE 

lOlYE 

1349 

JMP 

I02PT 

1350 

lOlYE 

CLR 

FLBFGl 

1351 

STAA 

UTl 

1352 

LDAA 

SIGACQ 

1353 

ANDA 

#0EFH 

1354 

STAA 

SIGACQ 

1355 

STAA 

LATCHl 

1356 

LDAA 

MRFTA 

1357 

ANDA 

#0FEH 

1358 

STAA 

MRFTA 

1359 

STAA 

LATCH3 

1360 

JSR 

LDl 

NO  DATA:  ABORT  INPUT 


CLEAR  "DATA  RDY  PORT  #1" 


RESET  I/O  #1  FIFO 
CLR  TX  ACK  I/O  #1 

**INIT  I/O  PORT  ** 

**TO  OUTPUT** 

**RX  BURST  DATA** 

RESET  I/O  #1  FIFO 

SELECT  I/O  OUTPUT  MODE 


RCV  ELASTIC  BUFFER  FULL? 


SET  OUTPUT  MODE 


CLR  RESET  ON  I/O  FIFO 


92 


1361 

JSR 

LDl 

1362 

LDAA 

BPS16K 

1363 

BEQ 

lOlYEO 

1364 

JSR 

LDl 

1365 

JSR 

LDl 

1366 

JSR 

LDl 

1367 

JSR 

LDl 

1368 

JSR 

LDl 

1369 

lOlYEO 

JMP 

I02PT 

1370 

101 YE 1 

LDAA 

#1 

1371 

STAA 

XFERl 

1372 

LDAA 

UTl 

1373 

BNE 

lOlYEO 

1374 

LDAA 

DATA6 

1375 

BITA 

#8 

1376 

beq 

lOlYCl 

1377 

JMP 

102  PT 

1378 

lOlYF 

LDX 

CHCTl 

1379 

BEQ 

lOlYEl 

1380 

LDAA 

DATA6 

1381 

LDAB 

UTl 

1382 

BNE 

lOlYFA 

1383 

BITA 

#8 

1384 

BEQ 

lOlYCl 

1385 

lOlYFA 

BITA 

#080H 

1386 

BEQ 

I02PT 

1387 

lOlYG 

JSR 

lOlLF 

1388 

LDAA 

DATA6 

1389 

BITA 

#080H 

1390 

BEQ 

I02PT 

1391 

lOlYH 

JSR 

lOlLF 

1392 

LDAA 

DATA6 

1393 

BITA 

#080H 

1394 

BEQ 

I02PT 

1395 

lOlYI 

JSR 

lOlLF 

1396 

LDAA 

BPS16K 

1397 

BEQ 

I02PT 

1398 

lOlYJ 

LDAA 

DATA6 

1399 

BITA 

#080H 

1400 

BEQ 

I02PT 

1401 

lOlYK 

JSR 

lOlLF 

1402 

LDAA 

DATA6 

1403 

BITA 

#080H 

1404 

BEQ 

I02PT 

1405 

lOlYL 

JSR 

lOlLF 

1406 

LDAA 

DATA6 

1407 

BITA 

#080H 

1408 

BEQ 

102  PT 

1409 

lOlYM 

JSR 

lOlLF 

1410 

LDAA 

DATA6 

1411 

BITA 

#080H 

1412 

BEQ 

I02PT 

1413 

lOlYN 

JSR 

lOlLF 

1414 

LDAA 

DATA6 

1415 

BITA 

#080H 

1416 

BEQ 

102  PT 

1417 

lOlYO 

JSR 

lOlLF 

LOAD  FIFO  W/6  BUF.  CH. 

16KBPS  SO: 

LOAD  FIFO  WITH  21  BUF.  CH. 

CHECK  FIFO  UNDERFLOW 
BY  TESTING  FIFO  "O.R." 
♦♦UNDERFLOW** 


CHECK  FIFO  "I.R.":  FULL? 

OUTPUT  1  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  2  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  3  CH.  TO  FIFO 

16KBPS:  SERVICE  10  CHARS. 
CHECK  "I.R.":  FULL? 

OUTPUT  4  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  5  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  6  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  7  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  8  CH.  TO  FIFO 
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1418 

LDAA 

DATA6 

1419 

BITA 

#080H 

CHECK  " I . R . " :  FULL? 

1420 

BEQ 

102  PT 

1421 

lOlYP 

JSR 

lOlLF 

OUTPUT  9  CH.  TO  FIFO 

1422 

LDAA 

DATA6 

1423 

BITA 

#080H 

CHECK  " I . R . " :  FULL? 

1424 

BEQ 

I02PT 

1425 

lOlYQ 

JSR 

lOlLF 

OUTPUT  10  CH.  TO  FIFO 

1426 

★★*********************************************^ 

1427 

* 

1428 

* 

1429 

* 

1430 

I02PT 

LDAA 

PTONRX 

PORT  #2  ON? 

1431 

ANDA 

#2 

1432 

BEQ 

I02A1 

1433 

CLR 

P20FF 

1434 

JMP 

I02A 

1435 

I02A1 

LDAA 

P20FF 

PORT  IS  OFF 

1436 

BEQ 

I02A2 

1437 

JMP 

103  PT 

1438 

I02A2 

STAA 

CHCT2 

1439 

STAA 

CHCT2+1 

1440 

STAA 

XMTRQ2 

1441 

STAA 

UT2 

1442 

LDX 

#0 

1443 

STX 

LGDPT2 

1444 

STAA 

OUFG2 

1445 

STAA 

EMPTY2 

1446 

LDAA 

#2 

1447 

STAA 

MSD02 

1448 

INCA 

1449 

STAA 

FLBFG2 

1450 

LDAA 

MRFTA 

1451 

ORAA 

#2 

RESET  FIFO  I/O  #2 

1452 

ANDA 

#0DFH 

1453 

STAA 

MRFTA 

1454 

STAA 

LATCH3 

1455 

STAA 

P20FF 

1456 

LDAA 

PAIAD 

1457 

ANDA 

#0FDH 

CLEAR  "DATA  RDY  PORT  #2" 

1458 

STAA 

PAIAD 

1459 

STAA 

PIAIAD 

1460 

LDX 

#SBUFF2 

1461 

STX 

INPT2 

1462 

STX 

OUTPT2 

1463 

LDAA 

SIGACQ 

CLR  "SIGNAL  ACQ.  I/O  #2" 

1464 

ANDA 

#0FDH 

1465 

STAA 

SIGACQ 

1466 

STAA 

LATCHl 

1467 

LDX 

TXPNTR 

1468 

CPX 

#INPT2 

1469 

BNE 

I02A3 

1470 

CLR 

SOEN 

1471 

I02A3 

JMP 

I03PT 

1472 

************ 

************************************, 

1473 

* 

1474 

*  INPUT  SERVICE  ROUTINE 
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1475 

1476 

* 

I02LS  LDAA 

#1 

1477 

STAA 

XFER2 

1478 

LDAA 

102 

OBTAIN  CHAR 

1479 

LDX 

INPT2 

GET  PUT  PNTR 

1480 

STAA 

0,X 

PUT  IT 

1481 

INX 

INCR  PUT  PNTR 

1482 

CPX 

OUTPT2 

TEST  OVERFLOW 

1483 

BNE 

I02LSX 

BRANCH  NO  OVERFLOW 

1484 

LDAA 

MRFTA 

**OVERFLOW** 

1485 

ANDA 

#0DFH 

CLR  "XMT  ACK" 

1486 

ORAA 

#2 

RESET  FIFO 

1487 

STAA 

MRFTA 

1488 

STAA 

LATCH3 

1489 

STAA 

OUFG2 

SET  OUFG  FLAG 

1490 

INS 

^REMOVE  RETURN 

1491 

INS 

* 

1492 

JMP 

103  PT 

1493 

I02LSX  LDAA 

BPS16K 

1494 

BEQ 

I02LSA 

1495 

CPX 

#EBUFF4 

16  KBPS 

1496 

BNE 

I02LSB 

1497 

LDX 

#SBUFF1 

1498 

BRA 

I02LSB 

1499 

102 LSA  CPX 

#EBUFF2 

TEST  END  OF  INPUT 

1500 

BNE 

I02LSB 

NO 

1501 

LDX 

#SBUFF2 

GET  INITIAL  VALUE 

1502 

I02LSB  STX 

INPT2 

1503 

LDX 

CHCT2 

GET  CHAR  COUNT 

1504 

INX 

INCR  COUNT 

1505 

STX 

CHCT2 

PUT  BACK 

1506 

1507 

RTS 

1508 

1509 

* 

*LOAD  I/O  #2 

FIFO  WITH 

1  CHAR  ROUTINE 

1510 

1511 

* 

I02LF  LDX 

OUTPT2 

1512 

LDAA 

RXINHB 

1513 

BITA 

#2 

IS  THE  EXTEND  TRANSMIT  FLAG  SET? 

1514 

BNE 

102 LFl 

YES:RX  NOT  ALLOWED 

1515 

LDAA 

0,X 

1516 

STAA 

102+2 

OUTPUT  CH.  TO  I/O  #2  FIFO 

1517 

I02LF1  INX 

ADJ.  OUTPUT  PNTR. 

1518 

LDAB 

BPS16K 

1519 

BEQ 

102 LFA 

1520 

CPX 

#EBUFF4 

16  KBPS 

1521 

BNE 

102 LFB 

1522 

LDX 

#SBUFF1 

1523 

BRA 

I02LFB 

1524 

I02LFA  CPX 

#EBUFF2 

1525 

BNE 

102 LFB 

1526 

LDX 

#SBUFF2 

1527 

102 LFB  STX 

OUTPT2 

1528 

LDAA 

#1 

1529 

STAA 

XFER2 

1530 

LDAA 

FMSD02 

TEST  MISSING  DO 

1531 

BEQ 

I02LFC 

WBR 

WBR 

WBR 
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1532  LDX  MD0CT2 

1533  DEX 

1534  STX  MD0CT2 

1535  BNE  I02LFC 

1536  LDAA  SIGACQ 

1537  ANDA  #OFDH 

1538  STAA  SIGACQ 

1539  STAA  LATCHl 

1540  CLR  FMSD02 


1541 

I02LFC 

LDX 

CHCT2  ADJUST  CHAR  COUNT 

1542 

DEX 

1543 

STX 

CHCT2 

1544 

BNE 

I02LFD 

1545 

INS 

REMOVE  RETURN 

1546 

INS 

1547 

JMP 

I02YE1  GO  CHECK  UNDERFLOW 

1548 

I02LFD 

RTS 

1549 

************************************ *********************** 

1550 

* 

1551 

*  LOAD 

FIFO 

I/O  #2  WITH  3  BUF.  CH.  ROUTINE 

1552 

* 

1553 

LD2 

LDX 

OUTPT2 

1554 

LDAA 

0,X 

1555 

STAA 

102+2 

1556 

LDAA 

i,x 

1557 

STAA 

102+2 

1558 

LDAA 

2,X 

1559 

STAA 

102+2 

1560 

INX 

1561 

INX 

1562 

INX 

1563 

STX 

OUTPT2 

1564 

LDX 

CHCT2 

1565 

DEX 

1566 

DEX 

1567 

DEX 

1568 

STX 

CHCT2 

1569 

RTS 

1570 

*********************************************************** 

1571 

* 

1572 

***** 

BEGIN 

SERVICING  I/O  PORT  #2  ***** 

1573 

* 

1574 

I02A 

LDAA 

PTONRX  RX  ONLY? 

1575 

BITA 

#020H 

1576 

BEQ 

I02AA 

1577 

JMP 

I02y 

1578 

I02AA 

LDAA 

DATAl 

1579 

BITA 

#2 

1580 

BNE 

I02B 

1581 

JMP 

I02Y 

1582 

I02B 

ASIA 

1583 

BPL 

102  C 

1584 

LDAA 

XMTRQ2 

1585 

BNE 

102  C 

1586 

LDAA 

EMPTY2 

1587 

BNE 

102  CA 

1588  LDX  CHCT2  R/T  SELECTED:  CHECK  RCV  DON 
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1589 

BEQ 

I02BB 

1590 

I02BA 

JMP 

I02YD 

1591 

I02BB 

LDAA 

DATA6 

TEST:  I/O  FIFO  UNDERFLOW 

1592 

BITA 

#4 

1593 

BNE 

I02BA 

BRANCH:  NO  UNDERFLOW 

1594 

102  C 

LDAA 

XMTRQ2 

1595 

BNE 

I02D 

1596 

LDAA 

EMPTY2 

1597 

BEQ 

I02E 

1598 

102  CA 

CLR 

EMPTY2 

GET  HERE  W/MULTPLE 

1599 

STAA 

XMTRQ2 

TX  REQ  PER  FRAME 

1600 

LDX 

#0 

1601 

STX 

LGDPT2 

1602 

LDAA 

MRFTA 

1603 

ORAA 

#020H 

SET  "TX  ACK" 

1604 

STAA 

MRFTA 

1605 

STAA 

LATCH3 

1606 

I02D 

LDAA 

0UFG2 

1607 

BNE 

I02DA 

1608 

JMP 

I02H 

1609 

I02DA 

STAA 

XFER2 

1610 

JMP 

I03PT 

1611 

I02E 

LDAA 

DATA5 

CHECK  TX  INHIBIT 

1612 

ANDA 

#1 

1613 

BEQ 

I02F 

1614 

JMP 

103  PT 

1615 

I02F 

LDAA 

#1 

**INIT  FOR  PORT  #2** 

1616 

STAA 

XMTRQ2 

**DATA  TRANSMISSION** 

1617 

STAA 

GROUP2 

1618 

STAA 

XFER2 

1619 

STAA 

FLBFG2 

1620 

LDAA 

SIGACQ 

1621 

ORAA 

#020H 

SELECT  I/O  INPUT  MODE 

1622 

ANDA 

#0FDH 

CLR  "SIG.  ACQ.  #2" 

1623 

STAA 

SIGACQ 

1624 

STAA 

LATCHl 

1625 

LDAA 

MRFTA 

1626 

ORAA 

#2 

TOGGLE  FIFO'S  RESET 

1627 

STAA 

LATCH3 

1628 

CLR 

102+2 

CLR  PIA  B-SIDE 

1629 

ANDA 

#0FDH 

1630 

ORAA 

#020H 

SET  "XMT  ACK"  I/O  #2 

1631 

STAA 

MRFTA 

1632 

STAA 

LATCH3 

1633 

LDAA 

BPS16K 

1634 

BEQ 

I02FA 

1635 

LDX 

#SBUFFl+6 

16KBPS 

1636 

STX 

INPT2 

1637 

LDX 

#SBUFF1 

1638 

BRA 

102  FB 

1639 

102  FA 

LDX 

#SBUFF2+6 

1640 

STX 

INPT2 

1641 

LDX 

#SBUFF2 

1642 

102  FB 

STX 

OUTPT2 

1643 

LDAA 

#0FFH 

STUFF  6  ELASTIC 

1644 

STAA 

0,X 

BUFFER  CHARACTERS  (CC) 

1645 

STAA 

1,X 
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1646 

STAA 

2,X 

1647 

STAA 

3,X 

1648 

STAA 

4,X 

1649 

STAA 

5,X 

1650 

LDX 

#6 

1651 

STX 

CHCT2 

1652 

JMP 

103  PT 

1653 

I02G 

LDAA 

BPS16K 

1654 

BEQ 

102  GA 

1655 

LDX 

#SBUFF1 

1656 

BRA 

102  GB 

1657 

I02GA 

LDX 

#SBUFF2 

1658 

I02GB 

STX 

INPT2 

1659 

STX 

OUTPT2 

1660 

LDX 

#0 

1661 

STX 

CHCT2 

1662 

LDAA 

SIGACQ 

1663 

ANDA 

#0FDH 

1664 

STAA 

SIGACQ 

1665 

STAA 

LATCHl 

1666 

JMP 

103  PT 

1667 

I02H 

LDAA 

DATA5 

1668 

ANDA 

#1 

1669 

BEQ 

I02HA 

1670 

JMP 

I02YA1 

1671 

I02HA 

LDAB 

FLBFG2 

1672 

BEQ 

I02HB 

1673 

JMP 

1020 

1674 

I02HB 

LDAA 

DATA6 

1675 

BITA 

#4 

1676 

BNE 

1021 

1677 

JMP 

I02XP 

1678 

1021 

JSR 

I02LS 

1679 

LDAA 

DATA6 

1680 

BITA 

#4 

1681 

BNE 

I02K 

1682 

JMP 

I02XP 

1683 

I02K 

JSR 

I02LS 

1684 

LDAA 

DATA6 

1685 

BITA 

#4 

1686 

BNE 

I02M 

1687 

JMP 

I02XP 

1688 

I02M 

JSR 

I02LS 

1689 

LDAA 

DATA6 

1690 

BITA 

#4 

1691 

BNE 

I02N2 

1692 

JMP 

I02XP 

1693 

I02N2 

JSR 

I02LS 

1694 

LDAA 

BPS16K 

1695 

BNE 

I02N3 

1696 

JMP 

I02XP 

1697 

I02N3 

LDAA 

DATA6 

1698 

BITA 

#4 

1699 

BNE 

I02N4 

1700 

JMP 

I02XP 

1701 

I02N4 

JSR 

I02LS 

1702 

LDAA 

DATA6 

16KBPS 

CLR  "SIGNAL  ACQ.  I/O  #2" 

CHECK  TX  INHIBIT 

TEST  FIFO  "O.R." 

LOAD  &  STORE  1  CHAR 

LOAD  &  STORE  2  CHAR 

LOAD  &  STORE  3  CHAR 

LOAD  &  STORE  4  CHAR 

*16KBPS:  ALLOW  MORE* 

*1/0  SERVICING* 

LOAD  &  STORE  5  CHAR. 
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1703 

BITA 

#4 

1704 

BNE 

I02N5 

1705 

JMP 

I02XP 

1706 

I02N5 

JSR 

I02LS 

1707 

LDAA 

DATA6 

1708 

BITA 

#4 

1709 

BNE 

I02N6‘ 

1710 

JMP 

I02XP 

1711 

I02N6 

JSR 

I02LS 

1712 

LDAA 

DATA6 

1713 

BITA 

#4 

1714 

BNE 

I02N7 

1715 

JMP 

I02XP 

1716 

I02N7 

JSR 

I02LS 

1717 

LDAA 

DATA6 

1718 

BITA 

#4 

1719 

BNE 

I02N8 

1720 

JMP 

I02XP 

1721 

I02N8 

JSR 

I02LS 

1722 

LDAA 

DATA6 

1723 

BITA 

#4 

1724 

BNE 

I02N9 

1725 

JMP 

I02XP 

1726 

I02N9 

JSR 

I02LS 

1727 

LDAA 

DATA6 

1728 

BITA 

#4 

1729 

BNE 

IO2N10 

1730 

JMP 

I02XP 

1731 

IO2N10 

JSR 

I02LS 

1732 

JMP 

I02XP 

1733 

1020 

LDAA 

DATA6 

1734 

BITA 

#4 

1735 

BEQ 

I02XP 

1736 

I02P 

CLR 

FLBFG2 

1737 

LDAA 

PAIAD 

1738 

ORAA 

#2 

1739 

STAA 

PAIAD 

1740 

STAA 

PIAIAD 

1741 

JMP 

1021 

1742 

I02XP 

LDAA 

EMPTY2 

1743 

BPL 

I02XQ 

1744 

LDX 

INPT2 

1745 

STX 

LGDPT2 

1746 

LDAA 

#1 

1747 

STAA 

EMPTY2 

1748 

I02XQ 

JMP 

I03PT 

1749 

I02Y 

LDAA 

XMTRQ2 

1750 

BEQ 

I02YB 

1751 

LDAA 

MRFTA 

1752 

ANDA 

#0DFH 

1753 

STAA 

MRFTA 

1754 

STAA 

LATCH3 

1755 

CLR 

XMTRQ2 

1756 

LDAA 

#0FFH 

1757 

STAA 

EMPTY2 

1758 

LDAA 

PAIAD 

1759 

ANDA 

#2 

LOAD  &  STORE  6  CHAR. 

LOAD  &  STORE  7  CHAR. 

LOAD  &  STORE  8  CHAR. 

LOAD  &  STORE  9  CHAR. 

LOAD  &  STORE  10  CHAR. 

LOAD  Sc  STORE  11  CHAR. 

SET  "DATA  RDY  PORT  #2" 

**TEST  IF  SETUP** 

**LAST  GOOD  DATA  PNTR** 
DO  SETUP 

CLR  "TX  ACK" 

FIRST  TIME  THAT 
TX  REQ  =  FALSE 
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1760 

BNE 

I02YA 

1761 

STAA 

CHCT2 

1762 

STAA 

CHCT2+1 

1763 

STAA 

EMPTY2 

1764 

INCA 

1765 

STAA 

FLBFG2 

1766 

LDAA 

MRFTA 

1767 

ORAA 

#2 

1768 

STAA 

MRFTA 

1769 

STAA 

LATCH3 

1770 

vJMP 

I03PT 

1771 

I02yA 

JMP 

I02D 

1772 

I02YB 

LDAA 

EMPTY2 

1773 

BNE 

I02YA 

1774 

JMP 

I02YD 

1775 

I02YA1 

CLRA 

1776 

STAA 

XMTRQ2 

1777 

STAA 

EMPTY2 

1778 

LDAA 

PAIAD 

1779 

ANDA 

#0FDH 

1780 

STAA 

PIAIAD 

1781 

STAA 

PAIAD 

1782 

LDAA 

MRFTA 

1783 

ORAA 

#2 

1784 

T^A 

#0DFH 

1785 

STAA 

MRFTA 

1786 

STAA 

LATCH3 

1787 

I02YC 

LDAA 

MRFTA 

1788 

ORAA 

#2 

1789 

STAA 

MRFTA 

1790 

STAA 

LATCH3 

1791 

LDAA 

SIGACQ 

1792 

ANDA 

#0DFH 

1793 

STAA 

SIGACQ 

1794 

STAA 

LATCHl 

1795 

I02YC1 

CLR 

FMSD02 

1796 

LDAA 

#2 

1797 

STAA 

MSD02 

1798 

STAA 

FLBFG2 

1799 

JMP 

I02G 

1800 

I02YD 

LDAA 

FLBFG2 

1801 

BEQ 

I02YF 

1802 

STAA 

XFER2 

1803 

LDAA 

CHCT2+1 

1804 

CMPA 

#10 

1805 

BGE 

I02YE 

1806 

JMP 

I03PT 

1807 

I02YE 

CLR 

FLBFG2 

1808 

STAA 

UT2 

1809 

LDAA 

SIGACQ 

1810 

ANDA 

#0DFH 

1811 

STAA 

SIGACQ 

1812 

STAA 

LATCHl 

1813 

LDAA 

MRFTA 

1814 

ANDA 

#0FDH 

1815 

STAA 

MRFTA 

1816 

STAA 

LATCH3 

NO  DATA:  ABORT  INPUT 


CLEAR  "DATA  RDY  PORT  #2" 


RESET  I/O  #2  FIFO 
CLR  TX  ACK  I/O  #2 

**INIT  I/O  PORT** 

**TO  OUTPUT** 

**RX  BURST  DATA** 

RESET  I/O  #2  FIFO 

SELECT  I/O  OUTPUT  MODE 


RCV  ELASTIC  BUFFER  FULL? 


SET  OUTPUT  MODE 


CLR  REST  ON  I/O  FIFO 
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LOAD  FIFO  W/6  BUF.  CH. 


1817 

JSR 

LD2 

1818 

JSR 

LD2 

1819 

LDAA 

BPS16K 

1820 

BEQ 

IO2YE0 

1821 

JSR 

LD2 

1822 

JSR 

LD2 

1823 

JSR 

LD2 

1824 

JSR 

LD2 

1825 

JSR 

LD2 

1826 

IO2YE0 

JMP 

I03PT 

1827 

I02YE1 

LDAA 

#1 

1828 

STAA 

XFER2 

1829 

LDAA 

UT2 

1830 

BNE 

IO2YE0 

1831 

LDAA 

DATA6 

1832 

BITA 

#4 

1833 

BEQ 

I02YC1 

1834 

JMP 

I03PT 

1835 

I02YF 

LDX 

CHCT2 

1836 

BEQ 

I02YE1 

1837 

LDAA 

DATA6 

1838 

LDAB 

UT2 

1839 

BNE 

I02YFA 

1840 

BITA 

#4 

1841 

BEQ 

I02YC1 

1842 

I02YFA 

BITA 

#040H 

1843 

BEQ 

I03PT 

1844 

I02YG 

JSR 

I02LF 

1845 

LDAA 

DATA6 

1846 

BITA 

#040H 

1847 

BEQ 

103  PT 

1848 

I02YH 

JSR 

I02LF 

1849 

LDAA 

DATA6 

1850 

BITA 

#040H 

1851 

BEQ 

103  PT 

1852 

I02YI 

JSR 

I02LF 

1853 

LDAA 

BPS16K 

1854 

BEQ 

103  PT 

1855 

I02YJ 

LDAA 

DATA6 

1856 

BITA 

#040H 

1857 

BEQ 

103  PT 

1858 

I02YK 

JSR 

I02LF 

1859 

LDAA 

DATA6 

1860 

BITA 

#040H 

1861 

BEQ 

103  PT 

1862 

102  YL 

JSR 

I02LF 

1863 

LDAA 

DATA6 

1864 

BITA 

#040H 

1865 

BEQ 

I03PT 

1866 

I02YM 

JSR 

I02LF 

1867 

LDAA 

DATA6 

1868 

BITA 

#040H 

1869 

BEQ 

I03PT 

1870 

I02YN 

JSR 

I02LF 

1871 

LDAA 

DATA6 

1872 

BITA 

#040H 

1873 

BEQ 

I03PT 

16  KBPS  SO: 

LOAD  FIFO  W/21  BUF.  CH. 

CHECK  FIFO  UNDERFLOW 
BY  TESTING  FIFO  "O.R." 
**UNDERFLOW** 


CHECK  FIFO  "I.R.":  FULL? 

OUTPUT  1  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  2  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  3  CH.  TO  FIFO 

16  KBPS:  SERVICE  10  CHARS. 
CHECK  "I.R.":  FULL? 

OUTPUT  4  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  5  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  6  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  7  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 
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1883 

1884 

1885 

1886  * 

1887  I03PT 

1888 

1889 

1890 

1891 

1892  I03A1 

1893 

1894 

1895  103 A2 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929  * 

1930  * 


OUTPUT  8  CH.  TO  FIFO 

CHECK  " I . R . " :  FULL? 

OUTPUT  9  CH.  TO  FIFO 

CHECK  ” I . R . " :  FULL? 

OUTPUT  10  CH.  TO  FIFO 
★********************************************************** 
* 

* 


1874 

I02YO 

JSR 

102  LF 

1875 

LDAA 

DATA6 

1876 

BITA 

#040H 

1877 

BEQ 

103  PT 

1878 

I02YP 

JSR 

I02LF 

1879 

LDAA 

DATA6 

1880 

BITA 

#040H’ 

1881 

BEQ 

103  PT 

1882 

I02YQ 

JSR 

I02LF 

I03A3 


LDAA 

PTONRX 

ANDA 

#4 

BEQ 

I03A1 

CLR 

P30FF 

JMP 

I03A 

LDAA 

P30FF 

BEQ 

I03A2 

JMP 

104  PT 

STAA 

CHCT3 

STAA 

CHCT3+1 

STAA 

XMTRQ3 

STAA 

UT3 

LDX 

#0 

STX 

LGDPT3 

STAA 

OUFG3 

STAA 

EMPTY3 

LDAA 

#2 

STAA 

MSD03 

INCA 

STAA 

FLBFG3 

LDAA 

MRFTA 

ORAA 

#4 

ANDA 

#0BFH 

STAA 

MRFTA 

STAA 

LATCH3 

STAA 

P30FF 

LDAA 

PAIAD 

ANDA 

#0FBH 

STAA 

PAIAD 

STAA 

PIAIAD 

LDX 

#SBUFF3 

STX 

INPT3 

STX 

OUTPT3 

LDAA 

SIGACQ 

ANDA 

#0FBH 

STAA 

SIGACQ 

STAA 

LATCHl 

LDX 

TXPNTR 

CPX 

#INPT3 

BNE 

I03A3 

CLR 

SOEN 

JMP 

I04PT 

PORT  #3  ON? 


PORT  IS  OFF 


RESET  FIFO  I/O  #3 
CLR  XMT  ACK  I/O  #3 


CLEAR  "DATA  RDY  PORT  #3" 


CLR  "SIGNAL  ACQ.  I/O  #3" 
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INPUT  SERVICE  SUBROUTINE 


1931  * 


1932 

* 

1933 

I03LS 

LDAA 

#1 

1934 

STAA 

XFER3 

1935 

LDAA 

103 

OBTAIN  CHAR 

1936 

LDX 

INPT3 

GET  PUT  PNTR 

1937 

STAA 

0,X 

PUT  IT 

1938 

INX 

INCR  PUT  PNTR 

1939 

CPX 

OUTPT3 

TEST  OVERFLOW 

1940 

BNE 

I03LSX 

BRANCH  NO  OVERFLOW 

1941 

LDAA 

MRFTA 

**OVERFLOW** 

1942 

ANDA 

#0BFH 

CLR  XMT  ACK  I/O  #3 

1943 

ORAA 

#4 

RESET  FIFO  I/O  #3 

1944 

STAA 

MRFTA 

1945 

STAA 

LATCH3 

1946 

STAA 

OUFG3 

SET  OUFG  FLAG 

1947 

INS 

*REMOVE  RETURN 

1948 

INS 

* 

1949 

JMP 

I04PT 

1950 

I03LSX 

LDAA 

BPS16K 

1951 

BEQ 

I03LSA 

1952 

CPX 

#EBUFF4 

16  KBPS 

1953 

BNE 

I03LSB 

1954 

LDX 

#SBUFF1 

1955 

BRA 

I03LSB 

1956 

I03LSA 

CPX 

#EBUFF3 

TEST  END  OF  INPUT 

1957 

BNE 

I03LSB 

NO 

1958 

LDX 

#SBUFF3 

GET  INITIAL  VALUE 

1959 

I03LSB 

STX 

INPT3 

1960 

LDX 

CHCT3 

GET  CHAR.  COUNT 

1961 

INX 

INCR  COUNT 

1962 

STX 

CHCT3 

PUT  BACK 

1963 

RTS 

1964  *********************************************************** 

1965  * 

1966  *LOAD  I/O  #3  FIFO  WITH  1  CHAR.  ROUTINE 


1967 

* 

1968 

I03LF 

LDX 

OUTPT3 

1969 

LDAA 

RXINHB 

1970 

BITA 

#4 

IS  THE  EXTEND  TRANSMIT  FLAG  SET? 

1971 

BNE 

I03LF1 

YES:RX  NOT  ALLOWED 

1972 

LDAA 

0,X 

1973 

STAA 

103+2 

OUTPUT  CH.  TO  I/O  #3  FIFO 

1974 

I03LF1 

INX 

ADJ.  OUTPUT  PNTR. 

1975 

LDAB 

BPS16K 

1976 

BEQ 

I03LFA 

1977 

CPX 

#EBUFF4 

16KBPS 

1978 

BNE 

I03LFB 

1979 

LDX 

#SBUFF1 

1980 

BRA 

I03LFB 

1981 

I03LFA 

CPX 

#EBUFF3 

1982 

BNE 

I03LFB 

1983 

LDX 

#SBUFF3 

1984 

I03LFB 

STX 

OUTPT3 

1985 

LDAA 

#1 

1986 

STAA 

XFER3 

1987 

LDAA 

FMSD03 

TEST  MISSING  DO 

WBR 

WBR 

WBR 
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1988 

BEQ 

I03LFC 

1989 

LDX 

MDOCT3 

1990 

DEX 

1991 

STX 

MDOCT3 

1992 

BNE 

I03LFC 

1993 

LDAA 

SIGACQ 

1994 

ANDA 

#0FBH 

1995 

STAA 

SIGACQ 

1996 

STAA 

LATCHl 

1997 

CLR 

FMSD03 

1998  I03LFC 

LDX 

CHCT3  ADJ  CHAR.  COUNT 

1999 

DEX 

2000 

STX 

CHCT3 

2001 

BNE 

103 LFD 

2002 

INS 

REMOVE  RETURN 

2003 

INS 

2004 

JMP 

103 YE 1  GO  CHECK  UNDERFLOW 

2005  I03LFD 

RTS 

2006  *********************************************************** 

2007  * 

2008  *LOAD 

FIFO  I/O  #3  WITH  3  BUF.  CH.  ROUTINE 

2009  * 

2010  LD3 

LDX 

OUTPT3 

2011 

LDAA 

0,X 

2012 

STAA 

103+2 

2013 

LDAA 

1,X 

2014 

STAA 

103+2 

2015 

LDAA 

2,X 

2016 

STAA 

103+2 

2017 

INX 

2018 

INX 

2019 

INX 

2020 

STX 

OUTPT3 

2021 

LDX 

CHCT3 

2022 

DEX 

2023 

DEX 

2024 

DEX 

2025 

STX 

CHCT3 

2026 

RTS 

2027  ******************************* ************** ******* ******* 

2028  * 

2029  ***** 

BEGIN 

SERVICING  I/O  PORT  #3  ***** 

2030  * 

2031  I03A 

LDAA 

PTONRX  RX  ONLY? 

2032 

BITA 

#040H 

2033 

BEQ 

I03AA 

2034 

JMP 

I03Y 

2035  I03AA 

LDAA 

DATAl 

2036 

BITA 

#4 

2037 

BNE 

I03B 

2038 

JMP 

I03Y 

2039  I03B 

AS  LA 

2040 

BPL 

I03C 

2041 

LDAA 

XMTRQ3 

2042 

BNE 

I03C 

2043 

LDAA 

EMPTY3 

2044 

BNE 

103  CA 

104 


2045 

LDX 

CHCT3 

R/T  SELECTED:  CHECK  RCV  DON 

2046 

BEQ 

I03BB 

2047 

I03BA 

JMP 

I03YD 

2048 

I03BB 

LDAA 

DATA6 

TEST:  I/O  FIFO  UNDERFLOW 

2049 

BITA 

#2 

2050 

BNE 

I03BA 

BRANCH :  NO  UNDERFLOW 

2051 

I03C 

LDAA 

XMTRQ3 

2052 

BNE 

I03D 

2053 

LDAA 

EMPTY3 

2054 

BEQ 

I03E 

2055 

103  CA 

CLR 

EMPTY3 

GET  HERE  W/MULTIPLE 

2056 

STAA 

XMTRQ3 

TX  REQ  PER  FRAME 

2057 

LDX 

#0 

2058 

STX 

LGDPT3 

2059 

LDAA 

MRFTA 

2060 

ORAA 

#040H 

SET  "TX  ACK" 

2061 

STAA 

MRFTA 

2062 

STAA 

LATCH3 

2063 

I03D 

LDAA 

OUFG3 

2064 

BNE 

I03DA 

2065 

JMP 

I03H 

2066 

I03DA 

STAA 

XFER3 

2067 

JMP 

104  PT 

2068 

I03E 

LDAA 

DATA5 

CHECK  TX  INHIBIT 

2069 

ANDA 

#1 

2070 

BEQ 

103  F 

2071 

JMP 

I04PT 

2072 

I03F 

LDAA 

#1 

**INIT  FOR  PORT  #3** 

2073 

STAA 

XMTRQ3 

**DATA  TRANSMISSION** 

2074 

STAA 

GROUP3 

2075 

STAA 

XFER3 

2076 

STAA 

FLBFG3 

2077 

LDAA 

SIGACQ 

2078 

ORAA 

#640H 

SET  I/O  INPUT  I?ODE 

2079 

ANDA 

#0FBH 

CLR  "SIG.  ACQ.  #3" 

2080 

STAA 

SIGACQ 

2081 

STAA 

LATCHl 

2082 

LDAA 

MRFTA 

2083 

ORAA 

#4 

TOGGLE  FIFO'S  RESET 

2084 

STAA 

LATCH3 

2085 

CLR 

103+2 

CLR  PIA-B  SIDE 

2086 

ANDA 

#0FBH 

2087 

ORAA 

#040H 

SET  XMT  ACK  I/O  #3 

2088 

STAA 

MRFTA 

2089 

STAA 

LATCH3 

2090 

LDAA 

BPS16K 

2091 

BEQ 

I03FA 

2092 

LDX 

#SBUFFl+6 

16KBPS 

2093 

STX 

INPT3 

2094 

LDX 

#SBUFF1 

2095 

BRA 

103  FB 

2096 

103  FA 

LDX 

#SBUFF3+6 

2097 

STX 

INPT3 

2098 

LDX 

#SBUFF3 

2099 

103  FB 

STX 

0UTPT3 

2100 

LDAA 

#0FFH 

STUFF  6  ELASTIC 

2101 

STAA 

o,x 

BUFFER  CHARACTERS  (CC) 
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2102 

STAA 

i,x 

2103 

STAA 

2,X 

2104 

STAA 

3,X 

2105 

STAA 

4,X 

2106 

STAA 

5,X 

2107 

LDX 

#6 

2108 

STX 

CHCT3 

2109 

JMP 

104  PT 

2110 

I03G 

LDAA 

BPS16K 

2111 

BEQ 

I03GA 

2112 

LDX 

#SBUFF1 

2113 

BRA 

103  GB 

2114 

I03GA 

LDX 

#SBUFF3 

2115 

I03GB 

STX 

INPT3 

2116 

STX 

0UTPT3 

2117 

LDX 

#0 

2118 

STX 

CHCT3 

2119 

LDAA 

SIGACQ 

2120 

moA 

#0FBH 

2121 

STAA 

SIGACQ 

2122 

STAA 

LATCHl 

2123 

JMP 

104  PT 

2124 

I03H 

LDAA 

DATA5 

2125 

ANDA 

#1 

2126 

beq 

I03HA 

2127 

JMP 

I03YA1 

2128 

I03HA 

LDAB 

FLBFG3 

2129 

beq 

I03HB 

2130 

JMP 

1030 

2131 

I03HB 

LDAA 

DATA6 

2132 

BITA 

#2 

2133 

BNE 

1031 

2134 

JMP 

I03XP 

2135 

1031 

JSR 

I03LS 

2136 

LDAA 

DATA6 

2137 

BITA 

#2 

2138 

BNE 

I03K 

2139 

JMP 

I03XP 

2140 

I03K 

JSR 

I03LS 

2141 

LDAA 

DATA6 

2142 

BITA 

#2 

2143 

BNE 

I03M 

2144 

JMP 

I03XP 

2145 

I03M 

JSR 

I03LS 

2146 

LDAA 

DATA6 

2147 

BITA 

#2 

2148 

BNE 

I03N2 

2149 

JMP 

I03XP 

2150 

I03N2 

JSR 

I03LS 

2151 

LDAA 

BPS16K 

2152 

BNE 

I03N3 

2153 

JMP 

I03XP 

2154 

I03N3 

LDAA 

DATA6 

2155 

BITA 

#2 

2156 

BNE 

I03N4 

2157 

JMP 

I03XP 

2158 

I03N4 

JSR 

I03LS 

16 KBPS 

CLR  "SIGNAL  ACQ .  I/O  #3" 

CHECK  TX  INHIBIT 

TEST  FIFO  "O.R." 

LOAD  &  STORE  1  CHAR 

LOAD  &  STORE  2  CHAR 

LOAD  &  STORE  3  CHAR 

LOAD  &  STORE  4  CHAR 

*16KBPS:  ALLOW  MORE* 

*1/0  SERVICING* 

LOAD  &  STORE  5  CHAR. 
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2159 

LDAA 

DATA6 

2160 

BITA 

#2 

2161 

BNE 

I03N5 

2162 

JMP 

I03XP 

2163 

I03N5 

JSR 

I03LS 

2164 

LDAA 

DATA6 

2165 

BITA 

#2 

2166 

BNE 

I03N6 

2167 

JMP 

I03XP 

2168 

I03N6 

JSR 

I03LS 

2169 

LDAA 

DATA6 

2170 

BITA 

#2 

2171 

BNE 

I03N7 

2172 

JMP 

I03XP 

2173 

I03N7 

JSR 

I03LS 

2174 

LDAA 

DATA6 

2175 

BITA 

#2 

2176 

BNE 

I03N8 

2177 

JMP 

I03XP 

2178 

I03N8 

JSR 

I03LS 

2179 

LDAA 

DATA6 

2180 

BITA 

#2 

2181 

BNE 

I03N9 

2182 

JMP 

I03XP 

2183 

I03N9 

JSR 

I03LS 

2184 

LDAA 

DATA6 

2185 

BITA 

#2 

2186 

BNE 

IO3N10 

2187 

JMP 

I03XP 

2188 

IO3N10 

JSR 

I03LS 

2189 

JMP 

I03XP 

2190 

1030 

LDAA 

DATA6 

2191 

BITA 

#2 

2192 

BEQ 

I03XP 

2193 

I03P 

CLR 

FLBFG3 

2194 

LDAA 

PAIAD 

2195 

ORAA 

#4 

2196 

STAA 

PAIAD 

2197 

STAA 

PIAIAD 

2198 

JMP 

1031 

2199 

I03XP 

LDAA 

EMPTY3 

2200 

BPL 

I03XQ 

2201 

LDX 

INPT3 

2202 

STX 

LGDPT3 

2203 

LDAA 

#1 

2204 

STAA 

EMPTY3 

2205 

I03XQ 

JMP 

I04PT 

2206 

I03Y 

LDAA 

XMTRQ3 

2207 

BEQ 

I03YB 

2208 

LDAA 

MRFTA 

2209 

ANDA 

#0BFH 

2210 

STAA 

MRFTA 

2211 

STAA 

LATCH3 

2212 

CLR 

XMTRQ3 

2213 

LDAA 

#0FFH 

2214 

STAA 

EMPTY3 

2215 

LDAA 

PAIAD 

LOAD  &  STORE  6  CHAR. 

LOD  &  STORE  7  CHAR. 

LOAD  &  STORE  8  CHAR. 

LOAD  &  STORE  9  CHAR. 

LOAD  &  STORE  10  CHAR. 

LOAD  &  STORE  11  CHAR. 

SET  "DATA  RDY  PORT  #3" 

**TEST  IF  SETUP** 

**LAST  GOOD  DATA  PNTR** 
DO  SETUP 

CLR  "TX  ACK" 

FIRST  TIME  THAT 
TX  REQ  =  FALSE 
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2216 

ANDA 

#4 

2217 

BNE 

I03YA 

2218 

STAA 

CHCT3 

2219 

STAA 

CHCT3+1 

2220 

STAA 

EMPTY3 

2221 

INCA 

2222 

STAA 

FLBFG3 

2223 

LDAA 

MRFTA 

2224 

ORAA 

#4 

2225 

STAA 

MRFTA 

2226 

STAA 

LATCH3 

2227 

JMP 

I04PT 

2228 

I03YA 

JMP 

I03D 

2229 

I03YB 

LDAA 

EMPTY3 

2230 

BNE 

I03YA 

2231 

JMP 

I03YD 

2232 

I03YA1 

CLRA 

2233 

STAA 

XMTRQ3 

2234 

STAA 

EMPTY3 

2235 

LDAA 

PAIAD 

2236 

ANDA 

#0FBH 

2237 

STAA 

PIAIAD 

2238 

STAA 

PAIAD 

2239 

LDAA 

MRFTA 

2240 

ORAA 

#4 

2241 

ANDA 

#0BFH 

2242 

STAA 

MRFTA 

2243 

STAA 

LATCH3 

2244 

I03YC 

LDAA 

MRFTA 

2245 

ORAA 

#4 

2246 

STAA 

MRFTA 

2247 

STAA 

LATCH3 

2248 

LDAA 

SIGACQ 

2249 

ANDA 

#0BFH 

2250 

STAA 

SIGACQ 

2251 

STAA 

LATCHl 

2252 

I03YC1 

CLR 

FMSD03 

2253 

LDAA 

#2 

2254 

STAA 

MSD03 

2255 

STAA 

FLBFG3 

2256 

JMP 

I03G 

2257 

I03YD 

LDAA 

FLBFG3 

2258 

BEQ 

I03YF 

2259 

STAA 

XFER3 

2260 

LDAA 

CHCT3+1 

2261 

CMPA 

#10 

2262 

BGE 

I03YE 

2263  , 

JMP 

104  PT 

2264 

I03YE 

CLR 

FLBFG3 

2265 

STAA 

UT3 

2266 

LDAA 

SIGACQ 

2267 

ANDA 

#0BFH 

2268 

STAA 

SIGACQ 

2269 

STAA 

LATCHl 

2270 

LDAA 

MRFTA 

2271 

ANDA 

#0FBH 

2272 

STAA 

MRFTA 

NO  DATA:  ABORT  INPUT 


CLEAR  "DATA  RDY  PORT  #3" 


RESET  I/O  #1  FIFO 
CLR  TX  ACK  I/O  #1 

**INIT  I/O  PORT** 

**TO  OUTPUT** 

**RX  BURST  DATA** 

RESET  I/O  #3  FIFO 

SELECT  I/O  OUTPUT  MODE 


RCV  ELASTIC  BUFFER  FULL? 


SET  OUTPUT  MODE 


CLR  RESET  ON  I/O  FIFO 
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LOAD  FIFO  W/6  BUF.  CH. 


2273 

STAA 

LATCH3 

2274 

JSR 

LD3 

2275 

JSR 

LD3 

2276 

LDAA 

BPS16K 

2277 

BEQ 

IO3YE0 

2278 

JSR 

LD3 

2279 

JSR 

LD3 

2280 

JSR 

LD3 

2281 

JSR 

LD3 

2282 

JSR 

LD3 

2283 

IO3YE0 

JMP 

I04PT 

2284 

I03YE1 

LDAA 

#1 

2285 

STAA 

XFER3 

2286 

LDAA 

UT3 

2287 

BNE 

IO3YE0 

2288 

LDAA 

DATA6 

2289 

BITA 

#2 

2290 

BEQ 

I03YC1 

2291 

JMP 

I04PT 

2292 

I03YF 

LDX 

CHCT3 

2293 

BEQ 

I03YE1 

2294 

LDAA 

DATA6 

2295 

LDAB 

UT3 

2296 

BNE 

I03YFA 

2297 

BITA 

#2 

2298 

BEQ 

I03YC1 

2299 

I03YFA 

BITA 

#020H 

2300 

BEQ 

I04PT 

2301 

I03YG 

JSR 

I03LF 

2302 

LDAA 

DATA6 

2303 

BITA 

#020H 

2304 

BEQ 

I04PT 

2305 

I03YH 

JSR 

I03LF 

2306 

LDAA 

DATA6 

2307 

BITA 

#020H 

2308 

BEQ 

104  PT 

2309 

I03YI 

JSR 

I03LF 

2310 

LDAA 

BPS16K 

2311 

BEQ 

104  PT 

2312 

I03YJ 

LDAA 

DATA6 

2313 

BITA 

#020H 

2314 

BEQ 

I04PT 

2315 

I03YK 

JSR 

I03LF 

2316 

LDAA 

DATA6 

2317 

BITA 

#020H 

2318 

BEQ 

I04PT 

2319 

I03YL 

JSR 

I03LF 

2320 

LDAA 

DATA6 

2321 

BITA 

#020H 

2322 

BEQ 

104  PT 

2323 

I03YM 

JSR 

I03LF 

2324 

LDAA 

DATA6 

2325 

BITA 

#020H 

2326 

BEQ 

104  PT 

2327 

I03YN 

JSR 

I03LF 

2328 

LDAA 

DATA6 

2329 

BITA 

#020H 

LOAD  FIFO  W/21  BUF.  CH. 

CHECK  FIFO  UNDERFLOW 
BY  TESTING  FIFO  "O.R." 
**UNDERFLOW** 


CHECK  "I.R.":  FULL? 

OUTPUT  1  CH.  TO  FIFO 
CHECK  "I.R.”:  FULL? 

OUTPUT  2  CH.  TO  FIFO 
CHECK  "I.R.*':  FULL? 

OUTPUT  3  CH.  TO  FIFO 

16  KBPS:  SERVICE  10  CHARS. 
CHECK  "I.R.":  FULL? 

OUTPUT  4  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  5  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  6  CH.  TO  FIFO 
CHECK  "I.R.”:  FULL? 

OUTPUT  7  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 
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2330 

BEQ 

I04PT 

2331 

I03Y0 

JSR 

I03LF 

OUTPUT  8  CH.  TO  FIFO 

2332 

LDAA 

DATA6 

2333 

BITA 

#020H 

CHECK  "I.R.";  FULL? 

2334 

BEQ 

I04PT 

2335 

I03YP 

JSR 

I03LF 

OUTPUT  9  CH.  TO  FIFO 

2336 

LDAA 

DATA6 

2337 

BITA 

#020H 

CHECK  " I . R . " :  FULL? 

2338 

BEQ 

104  PT 

2339 

I03YQ 

JSR 

I03LF 

OUTPUT  10  CH.  TO  FIFO 

2340 

**★★**★* **************************** ************ *********** 

2341 

* 

2342 

* 

2343 

* 

2344 

I04PT 

LDAA 

PTONRX 

PORT  #4  ON? 

2345 

ANDA 

#8 

2346 

BEQ 

I04A1 

2347 

CLR 

P40FF 

2348 

JMP 

I04A 

2349 

I04A1 

LDAA 

P40FF 

PORT  IS  OFF 

2350 

BEQ 

I04A2 

2351 

JMP 

BSERV 

2352 

I04A2 

STAA 

CHCT4 

2353 

STAA 

CHCT4+1 

2354 

STAA 

XMTRQ4 

2355 

STAA 

UT4 

2356 

LDX 

#0 

2357 

STX 

LGDPT4 

2358 

STAA 

OUFG4 

2359 

STAA 

EMPTY4 

2360 

LDAA 

#2 

2361 

STAA 

MSD04 

2362 

INCA 

2363 

STAA 

FLBFG4 

2364 

LDAA 

MRFTA 

2365 

ORAA 

#8 

RESET  FIFO  I/O  #4 

2366 

ANDA 

#07FH 

CLR  XMT  ACK 

2367 

STAA 

MRFTA 

2368 

STAA 

LATCH3 

2369 

STAA 

P40FF 

2370 

LDAA 

PAIAD 

2371 

ANDA 

#0F7H 

CLEAR  "DATA  RDY  PORT  #4" 

2372 

STAA 

PAIAD 

2373 

STAA 

PIAIAD 

2374 

LDX 

#SBUFF4 

2375 

STX 

INPT4 

2376 

STX 

OUTPT4 

2377 

LDAA 

SIGACQ 

CLR  "SIGNAL  ACQ.  I/O  #4" 

2378 

ANDA 

#0F7H 

2379 

STAA 

SIGACQ 

2380 

STAA 

LATCHl 

2381 

LDX 

TXPNTR 

2382 

CPX 

#INPT4 

2383 

BNE 

I04A3 

2384 

CLR 

SOEN 

2385 

I04A3 

JMP 

BSERV 

2386 

*********************************************************** 
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INPUT  SERVICE  SUBROUTINE 


2387  * 

2388  * 


2389 

* 

2390 

I04LS 

LDAA 

#1 

2391 

STAA 

XFER4 

2392 

LDAA 

104 

OBTAIN  CHAR 

2393 

LDX 

INPT4  ‘ 

GET  PUT  PNTR 

2394 

STAA 

0,X 

PUT  IT 

2395 

INX 

INCR  PUT  PNTR 

2396 

CPX 

OUTPT4 

TEST  OVERFLOW 

2397 

BNE 

I04LSX 

BRANCH  NO  OVERFLOW 

2398 

LDAA 

MRFTA 

**  OVERFLOW** 

2399 

ANDA 

#07FH 

CLR  XMT  ACK 

2400 

ORAA 

#8 

RESET  FIFO 

2401 

STAA 

MRFTA 

2402 

STAA 

LATCH3 

2403 

STAA 

OUFG4 

SET  OUFG  FLAG 

2404 

INS 

*REMOVE  RETURN 

2405 

INS 

* 

2406 

JMP 

BSERV 

2407 

I04LSX 

LDAA 

BPS16K 

2408 

BEQ 

I04LSA 

2409 

CPX 

#EBUFF4 

16  KBPS 

2410 

BNE 

I04LiSB 

2411 

LDX 

#SBUFF1 

2412 

BRA 

I04LSB 

2413 

I04LSA 

CPX 

#EBUFF4 

TEST  END  OF  INPUT 

2414 

BNE 

I04LSB 

NO 

2415 

LDX 

#SBUFF4 

GET  INITIAL  VALUE 

2416 

I04LSB 

STX 

INPT4 

2417 

LDX 

CHCT4 

GET  CHAR  COUNT 

2418 

INX 

INCR  COUNT 

2419 

STX 

CHCT4 

PUT  BACK 

2420 

RTS 

2421  ********************************************************* 

2422  * 

2423  *LOAD  I/O  #4  FIFO  WITH  1  CHAR.  ROUTINE 

2424  * 


2425 

I04LF 

LDX 

OUTPT4 

2426 

LDAA 

RXINHB 

2427 

BITA 

#8 

IS  THE  EXTEND  TRANSMIT  FLAG  SET? 

2428 

BNE 

I04LF1 

YES:RX  NOT  ALLOWED 

2429 

LDAA 

0,X 

2430 

STAA 

104+2 

OUTPUT  CH.  TO  I/O  #4  FIFO 

2431 

I04LF1 

INX 

ADJ.  OUTPUT  PNTR. 

2432 

LDAB 

BPS16K 

2433 

beq 

I04LFA 

2434 

CPX 

#EBUFF4 

16KBPS 

2435 

BNE 

I04LFB 

2436 

LDX 

#SBUFF1 

2437 

BRA 

I04LFB 

2438 

I04LFA 

CPX 

#EBUFF4 

2439 

BNE 

I04LFB 

2440 

LDX 

#SBUFF4 

2441 

I04LFB 

STX 

OUTPT4 

2442 

LDAA 

#1 

2443 

STAA 

XFER4 

** 


WBR 

WBR 

WBR 
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2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 


LDAA 

FMSD04 

TEST  MISSING  DO 

BEQ 

I04LFC 

LDX 

MD0CT4 

DEX 

STX 

iyiD0CT4 

BNE 

104 LFC 

LDAA 

SIGACQ 

ANDA 

#0F7H 

STAA 

SIGACQ 

STAA 

LATCHl 

CLR 

FMSD04 

I04LFC  LDX 

CHCT4 

ADJUST  CHR  COUNT 

DEX 

STX 

CHCT4 

BNE 

104 LFD 

INS 

REMOVE  RETURN 

INS 

JMP 

104 YEl 

GO  CHECK  UNDERFLOW 

I04LFD  RTS 

*********************************************************** 

* 

*LOAD  FIFO  I/O  #4  WITH  3  BUF.  CH.  ROUTINE 
* 

LD4  LDX  0UTPT4 
LDAA  0 , X 
STAA  104+2 
LDAA  1 , X 
STAA  104+2 
LDAA  2 , X 

STAA  104+2 
INX 
INX 
INX 

STX  OUTPT4 

LDX  CHCT4 

DEX 

DEX 

DEX 

STX  CHCT4 

RTS 

**+************************************★******************* 


*****  begin  servicing  I/O  PORT  #4 
* 


I04A 

LDAA 

PTONRX 

BITA 

#080H 

BEQ 

I04AA 

JMP 

I04Y 

I04AA 

LDAA 

DATAl 

BITA 

#8 

BNE 

I04B 

JMP 

I04Y 

I04B 

AS  LA 

BPL 

I04C 

LDAA 

XMTRQ4 

BNE 

I04C 

LDAA 

EMPTY4 

RX  ONLY? 


***** 
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2501 

BNE 

I04CA 

2502 

LDX 

CHCT4 

2503 

BEQ 

I04BB 

2504 

I04BA 

JMP 

104  YD 

2505 

I04BB 

LDAA 

DATA6 

2506 

BITA 

#1 

2507 

BNE 

I04BA 

2508 

I04C 

LDAA 

XMTRQ4 

2509 

BNE 

I04D 

2510 

LDAA 

EMPTY4 

2511 

BEQ 

I04E 

2512 

104  CA 

CLR 

EMPTY4 

2513 

STAA 

XMTRQ4 

2514 

LDX 

#0 

2515 

STX 

LGDPT4 

2516 

LDAA 

MRFTA 

2517 

ORAA 

#080H 

2518 

STAA 

MRFTA 

2519 

STAA 

LATCH3 

2520 

I04D 

LDAA 

OUFG4 

2521 

BNE 

I04DA 

2522 

JMP 

I04H 

2523 

I04DA 

STAA 

XFER4 

2524 

JMP 

BSERV 

2525 

I04E 

LDAA 

DATA5 

2526 

ANDA 

#1 

2527 

BEQ 

I04F 

2528 

JMP 

BSERV 

2529 

I04F 

LDAA 

#1 

2530 

STAA 

XMTRQ4 

2531 

STAA 

GROUP4 

2532 

STAA 

XFER4 

2533 

STAA 

FLBFG4 

2534 

LDAA 

SIGACQ 

2535 

ORAA 

#080H 

2536 

ANDA 

#0F7H 

2537 

STAA 

SIGACQ 

2538 

STAA 

LATCHl 

2539 

LDAA 

MRFTA 

2540 

ORAA 

#8 

2541 

STAA 

LATCH3 

2542 

CLR 

104+2 

2543 

ANDA 

#0F7H 

2544 

ORAA 

#080H 

2545 

STAA 

MRFTA 

2546 

STAA 

LATCH3 

2547 

LDAA 

BPS16K 

2548 

BEQ 

104  FA 

2549 

LDX 

#SBUFFl+6 

2550 

STX 

INPT4 

2551 

LDX 

iSBUFFl 

2552 

BRA 

104  FB 

2553 

104  FA 

LDX 

#SBUFF4+6 

2554 

STX 

INPT4 

2555 

LDX 

#SBUFF4 

2556 

I04FB 

STX 

OUTPT4 

2557 

LDAA 

#0FFH 

R/T  SELECTED:  CHECK  RCV  DON 

TEST:  I/O  FIFO  UNDERFLOW 
BRANCH:  NO  UNDERFLOW 

GET  HERE  W/MULTIPLE 
TX  REQ  PER  FRAME 

SET  "TX  ACK" 


CHECK  TX  INHIBIT 


**INIT  FOR  PORT  #4** 
**DATA  TRANSMISSION** 


SELECT  I/O  INPUT  MODE 
CLR  "SIG.  ACQ.  #4" 

TOGGLE  FIFO'S  RESET 
CLR  PIA-B  SIDE 
SET  XMT  ACK  I/O  #4 

16KBPS 


STUFF  6  ELASTIC 
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BUFFER  CHARACTERS  (CC) 


2558 

STAA 

0,X 

2559 

STAA 

i,x 

2560 

STAA 

2,X 

2561 

STAA 

3,X 

2562 

STAA 

4,X 

2563 

STAA 

5,X 

2564 

LDX 

#6 

2565 

STX 

CHCT4 

2566 

jiyip 

BSERV 

2567 

I04G 

LDAA 

BPS16K 

2568 

BEQ 

I04GA 

2569 

LDX 

#SBUFF1 

16  KBPS 

2570 

BRA 

I04GB 

2571 

I04GA 

LDX 

#SBUFF4 

2572 

I04GB 

STX 

INPT4 

2573 

STX 

OUTPT4 

2574 

LDX 

#0 

2575 

STX 

CHCT4 

2576 

LDAA 

SIGACQ 

CLR  "SIGNAL  ACQ.  I/O  #4 

2577 

ANDA 

#0F7H 

2578 

STAA 

SIGACQ 

2579 

STAA 

LATCHl 

2580 

JMP 

BSERV 

2581 

I04H 

LDAA 

DATA5 

CHECK  TX  INHIBIT 

2582 

ANDA 

#1 

2583 

BEQ 

I04HA 

2584 

JMP 

I04YA1 

2585 

I04HA 

LDAB 

FLBFG4 

2586 

BEQ 

I04HB 

2587 

JMP 

1040 

2588 

I04HB 

LDAA 

DATA6 

TEST  FIFO  "O.R." 

2589 

BITA 

#1 

2590 

BNE 

1041 

2591 

JMP 

I04XP 

2592 

1041 

JSR 

I04LS 

LOAD  &  STORE  1  CHAR 

2593 

LDAA 

DATA6 

2594 

BITA 

#1 

2595 

BNE 

I04K 

2596 

JMP 

I04XP 

2597 

I04K 

JSR 

I04LS 

LOAD  &  STORE  2  CHAR 

2598 

LDAA 

DATA6 

2599 

BITA 

#1 

2600 

BNE 

I04M 

2601 

JMP 

I04XP 

2602 

I04M 

JSR 

I04LS 

LOAD  $  STORE  3  CHAR. 

2603 

LDAA 

DATA6 

2604 

BITA 

#1 

2605 

BNE 

I04N2 

2606 

JMP 

I04XP 

2607 

I04N2 

JSR 

104  LS 

LOAD  &  STORE  4  CHAR 

2608 

LDAA 

BPS16K 

2609 

BNE 

I04N3 

2610 

JMP 

I04XP 

2611 

I04N3 

LDAA 

DATA6 

*16  KBPS:  ALLOW  MORE* 

2612 

BITA 

#1 

*1/0  SERVICING* 

2613 

BNE 

I04N4 

2614 

JMP 

I04XP 
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2615 

I04N4 

JSR 

I04LS 

2616 

LDAA 

DATA6 

2617 

BITA 

#1 

2618 

BNE 

I04N5 

2619 

JMP 

I04XP 

2620 

I04N5 

JSR 

I04LS 

2621 

LDAA 

DATA6 

2622 

BITA 

#1 

2623 

BNE 

I04N6 

2624 

JMP 

I04XP 

2625 

I04N6 

JSR 

I04LS 

2626 

LDAA 

DATA6 

2627 

BITA 

#1 

2628 

BNE 

I04N7 

2629 

JMP 

I04XP 

2630 

I04N7 

JSR 

I04LS 

2631 

LDAA 

DATA6 

2632 

BITA 

#1 

2633 

BNE 

I04N8 

2634 

JMP 

I04XP 

2635 

I04N8 

JSR 

I04LS 

2636 

LDAA 

DATA6 

2637 

BITA 

#1 

2638 

BNE 

I04N9 

2639 

JMP 

I04XP 

2640 

I04N9 

JSR 

I04LS 

2641 

LDAA 

DATA6 

2642 

BITA 

#1 

2643 

BNE 

IO4N10 

2644 

JMP 

I04XP 

2645 

IO4N10 

JSR 

I04LS 

2646 

JMP 

I04XP 

2647 

1040 

LDAA 

DATA6 

2648 

BITA 

#1 

2649 

beq 

I04XP 

2650 

I04P 

CLR 

FLBFG4 

2651 

LDAA 

PAIAD 

2652 

ORAA 

#8 

2653 

STAA 

PAIAD 

2654 

STAA 

PIAIAD 

2655 

JMP 

1041 

2656 

I04XP 

LDAA 

EMPTY4 

2657 

BPL 

I04XQ 

2658 

LDX 

INPT4 

2659 

STX 

LGDPT4 

2660 

LDAA 

#1 

2661 

STAA 

EMPTY4 

2662 

I04XQ 

JMP 

BSERV 

2663 

I04Y 

LDAA 

XMTRQ4 

2664 

BEQ 

104  YB 

2665 

LDAA 

MRFTA 

2666 

ANDA 

#07FH 

2667 

STAA 

MRFTA 

2668 

STAA 

LATCH3 

2669 

CLR 

XMTRQ4 

2670 

LDAA 

#0FFH 

2671 

STAA 

EMPTY4 

LOAD  &  STORE  5  CHAR. 

LOAD  &  STORE  6  CHAR. 

LOAD  &  STORE  7  CHAR. 

LOAD  &  STORE  8  CHAR. 

LOAD  &  STORE  9  CHAR. 

LOAD  &  STORE  10  CHAR. 

LOAD  &  STORE  11  CHAR. 

SET  "DATA  RDY  PORT  #4” 

**TEST  IF  SETUP** 

**LAST  GOOD  DATA  PNTR** 
DO  SETUP 

CLR  "TX  ACK" 

FIRST  TIME  THAT 
TX  REQ  =  FALSE 
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2672 

LDAA 

PAIAD 

2673 

ANDA 

#8 

2674 

BNE 

104  YA 

2675 

STAA 

CHCT4 

2676 

STAA 

CHCT4+1 

2677 

STAA 

EMPTY4 

2678 

INCA 

2679 

STAA 

FLBFG4 

2680 

LDAA 

MRFTA 

2681 

ORAA 

#8 

2682 

STAA 

MRFTA 

2683 

STAA 

LATCH3 

2684 

JMP 

BSERV 

2685 

104  YA 

JMP 

I04D 

2686 

104  YB 

LDAA 

EMPTY4 

2687 

BNE 

I04YA 

2688 

JMP 

I04YD 

2689 

104 YAl 

CLRA 

2690 

STAA 

XMTRQ4 

2691 

STAA 

EMPTY4 

2692 

LDAA 

PAIAD 

2693 

ANDA 

#0F7H 

2694 

STAA 

PIAIAD 

2695 

STAA 

PAIAD 

2696 

LDAA 

MRFTA 

2697 

ORAA 

#8 

2698 

ANDA 

#07FH 

2699 

STAA 

MRFTA 

2700 

STAA 

LATCH3 

2701 

I04YC 

LDAA 

MRFTA 

2702 

ORAA 

#8 

2703 

STAA 

MRFTA 

2704 

STAA 

LATCH3 

2705 

LDAA 

SIGACQ 

2706 

ANDA 

#07FH 

2707 

STAA 

SIGACQ 

2708 

STAA 

LATCHl 

2709 

I04YC1 

CLR 

FMSD04 

2710 

LDAA 

#2  ' 

2711 

STAA 

MSD04 

2712 

STAA 

FLBFG4 

2713 

JMP 

I04G 

2714 

104  YD 

LDAA 

FLBFG4 

2715 

BEQ 

104  YF 

2716 

STAA 

XFER4 

2717 

LDAA 

CHCT4+1 

2718 

CMPA 

#10 

2719 

BGE 

104  YE 

2720 

JMP 

BSERV 

2721 

104  YE 

CLR 

FLBFG4 

2722 

STAA 

UT4 

2723 

LDAA 

SIGACQ 

2724 

ANDA 

#07FH 

2725 

STAA 

SIGACQ 

2726 

STAA 

LATCHl 

2727 

LDAA 

MRFTA 

2728 

ANDA 

#0F7H 

NO  DATA:  ABORT  INPUT 


CLEAR  "DATA  RDY  PORT  #4" 


RESET  I/O  #4  FIFO 
CLR  TX  ACK  I/O  #4 

**INIT  I/O  PORT** 

**TO  OUTPUT** 

**RX  BURST  DATA** 

RESET  I/O  #4  FIFO 

SELECT  I/O  OUTPUT  MODE 


RCV  ELASTIC  BUFFER  FULL? 


SET  OUTPUT  MODE 


RESET  ON  I/O  FIFO 
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2729 

STAA 

MRFTA 

2730 

STAA 

LATCH3 

2731 

JSR 

LD4 

2732 

JSR 

LD4 

2733 

LDAA 

BPS16K 

2734 

BEQ 

104 YEO 

2735 

JSR 

LD4 

2736 

JSR 

LD4 

2737 

JSR 

LD4 

2738 

JSR 

LD4 

2739 

JSR 

LD4 

2740 

104 YE 0 

JMP 

BSERV 

2741 

I04YE1 

LDAA 

#1 

2742 

STAA 

XFER4 

2743 

LDAA 

UT4 

2744 

BNE 

104 YEO 

2745 

LDAA 

DATA6 

2746 

BITA 

#1 

2747 

BEQ 

I04YC1 

2748 

JMP 

BSERV 

2749 

I04YF 

LDX 

CHCT4 

2750 

BEQ 

104 YEl 

2751 

LDAA 

DATA6 

2752 

LDAB 

UT4 

2753 

BNE 

104 YFA 

2754 

BITA 

#1 

2755 

BEQ 

104 YCl 

2756 

I04YFA 

BITA 

#010H 

2757 

BEQ 

BSERV 

2758 

I04YG 

JSR 

I04LF 

2759 

LDAA 

DATA6 

2760 

BITA 

#010H 

2761 

BEQ 

BSERV 

2762 

I04YH 

JSR 

I04LF 

2763 

LDAA 

DATA6 

2764 

BITA 

#010H 

2765 

BEQ 

BSERV 

2766 

I04YI 

JSR 

I04LF 

2767 

LDAA 

BPS16K 

2768 

BEQ 

BSERV 

2769 

I04YJ 

LDAA 

DATA6 

2770 

BITA 

#010H 

2771 

BEQ 

BSERV 

2772 

104  YK 

JSR 

I04LF 

2773 

LDAA 

DATA6 

2774 

BITA 

#010H 

2775 

BEQ 

BSERV 

2776 

104  YL 

JSR 

I04LF 

2777 

LDAA 

DATA6 

2778 

BITA 

#010H 

2779 

BEQ 

BSERV 

2780 

104  YM 

JSR 

I04LF 

2781 

LDAA 

DATA6 

2782 

BITA 

#010H 

2783 

BEQ 

BSERV 

2784 

I04YN 

JSR 

I04LF 

2785 

LDAA 

DATA6 

LOAD  FIFO  W/6  BUF.  CH. 

16  KBPS  SO: 

LOAD  FIFO  W/21  BUF.  CH. 

CHECK  FIFO  UNDERFLOW 
BY  TESTING  FIFO  "O.R." 
**UNDERFLOW** 


CHECK  "I.R.":  FULL? 

OUTPUT  1  CHAN.  TO  FIFO 
CHECK  " I . R . " :  FULL? 

OUTPUT  2  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  3  CH.  TO  FIFO 

16KBPS:  SERVICE  10  CHAR 

CHECK  "I.R.":  FULL? 

OUTPUT  4  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  5  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  6  CH.  TO  FIFO 
CHECK  "I.R.":  FULL? 

OUTPUT  7  CH.  TO  FIFO 
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2786 

BITA 

#010H 

CHECK  "  I .  R .  "  :  FmL? 

2787 

BEQ 

BSERV 

2788  104 YO 

JSR 

I04LF 

OUTPUT  8  CH.  TO  FIFO 

2789 

LDAA 

DATA6 

2790 

BITA 

#010H 

CHECK  " I . R . " :  FULL? 

2791 

BEQ 

BSERV 

2792  I04YP 

JSR 

I04LF 

OUTPUT  9  CH.  TO  FIFO 

2793 

LDAA 

DATA6 

2794 

BITA 

#010H 

CHECK  ’’  I .  R .  "  :  FULL? 

2795  I04YQ 

JSR 

I04LF 

OUTPUT  10  CH.  TO  FIFO 

2796  ******************** 

**********************************.*** 

** 

2797  * 

2798  *  BITE  SERVICE  ROUTINE 

2799  * 

2800  * 

2801  BSERV 

LDAA 

DATA5 

2802 

BITA 

#8 

TEST:  SYSTEM  BITE  RESET 

2803 

BEQ 

BSERVA 

2804 

CLR 

IRSBIT 

2805 

CLR 

BITELT 

2806  BSERVA 

BITA 

#04H 

TEST:  LAMP  TEST 

2807 

BEQ 

BSERVB 

2808 

LDAA 

#0FFH 

TURN  ALL  BITE  LITES  ON 

2809 

BRA 

BSERVC 

WBR 

2810  * 

WHEN  THE  EXTEND  TIMER  IS  SET, 

WBR 

2811  * 

IT  IS  NOT  AN  ERROR  FOR  THE  PORT 

WBR 

2812  * 

OUTPUT  TO  BE  DIFFERENT  FROM  THE 

WBR 

2813  * 

FRAME  INPUT,  BECAUSE  WE  ARE 

WBR 

2814  * 

DISABLING  RECEIVE  CAPABILITIES . 

WBR 

2815  * 

THEREFORE  WE  MUST  MASK  OUT  THE 

WBR 

2816  * 

ERROR  ONLY  ON  THE  PORTS  WITH 

WBR 

2817  * 

THE  EXTEND  TIMER  SET.  BITS  0-3 

WBR 

2818  * 

IN  RXINHB  COORESPOND  TO  PORTS  1-4 

WBR 

2819  * 

AND  BITS  1-4  COORESPOND  TO  PORTS 

WBR 

2820  * 

1-4  IN  LATCH2. 

WBR 

2821  BSERVB 

LDAA 

RXINHB 

NO  ERROR  FOR  PORT  WITH 

WBR 

2822 

AS  LA 

EXTEND  TIMER  SET 

WBR 

2823 

COMA 

WBR 

2824 

ANDA 

BITELT 

OUTPUT  ALL  OTHER  ERRORS  PRESENT 

WBR 

2825 

STAA 

BITELT 

WBR 

2826  BSERVC 

STAA 

LATCH2 

WBR 

2827 

LDAB 

DATA5 

2828 

LDAA 

TIMEFG 

2829 

BEQ 

BSERVF 

2830 

BITB 

#010H 

TEST  75/16  HZ  CLOCK 

2831 

BNE 

BSERVE 

2832  BSERVD 

CLR 

TIMEFG 

2833  BSERVE 

JMP 

SOF 

2834  BSERVF 

BITB 

#010H 

TEST  75/16  HZ  CLOCK 

2835 

BEQ 

BSERVE 

2836 

INC 

TIMEFG 

2837 

LDAB 

BITELT 

2838 

LDX 

CHCTl 

2839 

BEQ 

SERVF3 

2840  SERVFl 

LDAA 

XFERl 

2841 

BEQ 

SERVF2 

2842 

CLR 

XFERl 

118 


2843 

BRA 

BSERVG 

2844 

SERVF2 

GRAB 

#2 

I/O  #1  BITE  ERROR 

2845 

BRA 

BSERVG 

2846 

SERVF3 

LDAA 

XMTRQl 

NO  DATA  AFTER  TX  REQ? 

2847 

BNE 

SERVFl 

2848 

BSERVG 

LDX 

CHCT2 

2849 

BEQ 

SERVG3 

2850 

SERVGl 

LDAA 

XFER2 

2851 

BEQ 

SERVG2 

2852 

CLR 

XFER2 

2853 

BRA 

BSERVH 

2854 

SERVG2 

GRAB 

#4 

I/O  #2  BITE  ERROR 

2855 

BRA 

BSERVH 

2856 

SERVG3 

LDAA 

XMTRQ2 

NO  DATA  AFTER  TX  REQ? 

2857 

BNE 

SERVGl 

2858 

BSERVH 

LDX 

CHCT3 

2859 

BEQ 

SERVH3 

2860 

SERVHl 

LDAA 

XFER3 

2861 

BEQ 

SERVH2 

2862 

CLR 

XFER3 

2863 

BRA 

BSERVI 

2864 

SERVH2 

GRAB 

#8 

I/O  #3  BITE  ERROR 

2865 

BRA 

BSERVI 

2866 

SERVH3 

LDAA 

XMTRQ3 

NO  DATA  AFTER  TX  REQ? 

2867 

BNE 

SERVHl 

2868 

BSERVI 

LDX 

CHCT4 

2869 

BEQ 

SERVI3 

2870 

SERVIl 

LDAA 

XFER4 

2871 

BEQ 

SERVI2 

2872 

CLR 

XFER4 

2873 

BRA 

BSERVK 

2874 

SERVI2 

DRAB 

#010H 

I/O  #4  BITE  ERROR 

2875 

BRA 

BSERVK 

2876 

SERVI3 

LDAA 

XMTRQ4 

NO  DATA  AFTER  TX  REQ? 

2877 

BNE 

SERVIl 

2878 

BSERVK 

STAB 

BITELT 

2879 

*********************************************************** 

2880 

* 

2881 

* 

BEGIN 

SERVICING 

SYSTEM  GUTPUT  FIFG 

2882 

* 

2883 

SOF 

LDAA 

SGEN 

2884 

BEQ 

SGFl 

2885 

BSR 

SDFA 

2886 

SOFl 

JMP 

SIF 

2887 

* 

2888 

SOF2 

LDX 

DUTCHC 

*TX  SELF  TEST  RDUTINE* 

2889 

LDAB 

#16 

2890 

SOF3 

LDAA 

DATA5 

FIFG  RDY? 

2891 

BMI 

SGF5 

2892 

LDAA 

#033H 

GUTPUT  TEST  CHAR. 

2893 

STAA 

PIAIBD 

2894 

DEX 

2895 

BNE 

SGF4 

2896 

CLRA 

DGNE  SELF  TEST  TX 

2897 

STAA 

SGEN 

2898 

STAA 

SELFTT 

2899 

STX 

OUTCHC 
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2900 

RTS 

2901  SOF4 

DECB 

2902 

BNE 

SOF3 

2903  SOF5 

STX 

OUTCHC 

2904 

RTS 

2905  * 

2905  SOFA 

LDAA 

SELFTT 

2907 

BNE 

SOF2 

2908 

LDX 

TXPNTR 

2909 

LDAA 

DATA5 

2910 

BITA 

#1 

2911 

BEQ 

SOFAA 

2912 

CLR 

SOEN 

2913 

RTS 

2914  SOFAA 

LDX 

2,X 

2915 

STX 

TBPNTR 

2916 

LDX 

TXPNTR 

2917 

LDX 

4,X 

2918 

STX 

TXCHCT 

2919 

LDX 

TXPNTR 

2920 

LDX 

14,  X 

2921 

STX 

TXLGDP 

2922 

LDAA 

GRPIFG 

2923 

BNE 

SOFB 

2924 

JMP 

SOFY 

2925  SOFB 

LDX 

FILLCT 

2926 

LDAB 

#0FFH 

2927 

LDAA 

DATA5 

■2928 

BPL 

SOFBA 

2929 

STX 

FILLCT 

2930 

RTS 

2931  SOFBA 

STAB 

PIAIBD 

2932 

DEX 

2933 

BNE 

SOFBB 

2934 

CLR 

GRPIFG 

2935 

JMP 

SOFD+2 

2936  SOFBB 

LDAA 

DATA5 

2937 

BPL 

SOFBC 

2938 

STX 

FILLCT 

2939 

RTS 

2940  SOFBC 

STAB 

PIAIBD 

2941 

DEX 

2942 

BNE 

SOFBD 

2943 

CLR 

GRPIFG 

2944 

JMP 

SOFE+2 

2945  SOFBD 

LDAA 

DATA5 

2946 

BPL 

SOFBE 

2947 

STX 

FILLCT 

2948 

RTS 

2949  SOFBE 

STAB 

PIAIBD 

2950 

DEX 

2951 

BNE 

SOFBF 

2952 

CLR 

GRPIFG 

2953 

JMP 

SOFF+2 

2954  SOFBF 

LDAA 

DATA5 

2955 

BPL 

SOFBG 

2956 

STX 

FILLCT 

TX  SELF  TEST? 

CHECK  TX  INHIBIT 

TX  INHIBIT:  ABORT 

SETUP  L.G.D.  PNTR  FOR 
TX  BURST  SERVICE 


FILL  PATTERN  BEFORE  DATA 
FIFO  RDY?  (DATA5-H=LOW) 


OUTPUT  FILL  CHAR  #1 


FIFO  READY? 


OUTPUT  FILL  CHAR  #2 


FIFO  READY? 


OUTPUT  FILL  CHAR  #3 


FIFO  READY? 
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2957 

RTS 

2958 

SOFBG 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#4 

2959 

DEX 

2960 

BNE 

SOFBH 

2961 

CLR 

GRPIFG 

2962 

JMP 

SOFG+2 

2963 

SOFBH 

LDAA 

DATA5 

FIFO  READY? 

2964 

BPL 

SOFBI 

2965 

STX 

FILLCT 

2966 

RTS 

2967 

SOFBI 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#5 

2968 

DEX 

2969 

BNE 

SOFBJ 

2970 

CLR 

GRPIFG 

2971 

JMP 

SOFH+2 

2972 

SOFBJ 

LDAA 

DATA5 

FIFO  READY? 

2973 

BPL 

SOFBK 

2974 

STX 

FILLCT 

2975 

RTS 

2976 

SOFBK 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#6 

2977 

DEX 

2978 

BNE 

SOFBL 

2979 

CLR 

GRPIFG 

2980 

JMP 

SOFI+2 

2981 

SOFBL 

LDAA 

DATA5 

FIFO  READY? 

2982 

BPL 

SOFBM 

2983 

STX 

FILLCT 

2984 

RTS 

2985 

SOFBM 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#7 

2986 

DEX 

2987 

BNE 

SOFBN 

2988 

CLR 

GRPIFG 

2989 

JMP 

SOFJ+2 

2990 

SOFBN 

LDAA 

DATA5 

FIFO  READY? 

2991 

BPL 

SOFBO 

2992 

STX 

FILLCT 

2993 

RTS 

2994 

SOFBO 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#8 

2995 

DEX 

2996 

BNE 

SOFBP 

2997 

CLR 

GRPIFG 

2998 

JMP 

SOFK+2 

2999 

SOFBP 

LDAA 

DATA5 

FIFO  READY? 

3000 

BPL 

SOFBQ 

3001 

STX 

FILLCT 

3002 

RTS 

3003 

SOFBQ 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#9 

3004 

DEX 

3005 

BNE 

SOFBR 

3006 

CLR 

GRPIFG 

3007 

JMP 

SOFL+2 

3008 

SOFBR 

LDAA 

DATA5 

FIFO  READY? 

3009 

BPL 

SOFBS 

3010 

STX 

FILLCT 

3011 

RTS 

3012 

SOFBS 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#10 

3013 

DEX 
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3014 

BNE 

SOFBT 

3015 

CLR 

GRPIFG 

3016 

JMP 

SOFM+2 

3017 

SOFBT 

LDAA 

DATA5 

FIFO  READY? 

3018 

BPL 

SOFBU 

3019 

STX 

FILLCT 

3020 

RTS 

3021 

SOFBU 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#11 

3022 

DEX 

3023 

BNE 

SOFBV 

3024 

CLR 

GRPIFG 

3025 

JMP 

SOFN+2 

3026 

SOFBV 

LDAA 

DATA5 

FIFO  READY? 

3027 

BPL 

SOFBW 

3028 

STX 

FILLCT 

3029 

RTS 

3030 

SOFBW 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#12 

3031 

DEX 

3032 

BNE 

SOFBX 

3033 

CLR 

GRPIFG 

3034 

JMP 

SOFO+2 

3035 

SOFBX 

LDAA 

DATA5 

FIFO  READY? 

3036 

BPL 

SOFBY 

3037 

STX 

FILLCT 

3038 

RTS 

3039 

SOFBY 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#13 

3040 

DEX 

3041 

BNE 

SOFBZ 

3042 

CLR 

GRPIFG 

3043 

JMP 

SOFP+2 

3044 

SOFBZ 

LDAA 

DATA5 

FIFO  READY? 

3045 

BPL 

SOFBl 

3046 

STX 

FILLCT 

3047 

RTS 

3048 

SOFBl 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#14 

3049 

DEX 

3050 

BNE 

SOFB2 

3051 

CLR 

GRPIFG 

3052 

JMP 

SOFQ+2 

3053 

SOFB2 

LDAA 

DATA5 

FIFO  READY? 

3054 

BPL 

SOFB3 

3055 

STX 

FILLCT 

3056 

RTS 

3057 

SOFB3 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#15 

3058 

DEX 

3059 

BNE 

SOFB4 

3060 

CLR 

GRPIFG 

3061 

JMP 

SOFR+2 

3062 

SOFB4 

LDAA 

DATA5 

FIFO  READY? 

3063 

BPL 

SOFB5 

3064 

STX 

FILLCT 

3065 

RTS 

3066 

SOFB5 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#16 

3067 

DEX 

3068 

BNE 

SOFB6 

3069 

CLR 

GRPIFG 

3070 

SOFB6 

STX 

FILLCT 
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3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

3084 

3085 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 


RTS 

SOFC 

LDAA 

DATA5 

FIFO  READY? 

BPL 

SOFCA 

JMP 

SOFS 

SOFCA 

LDX 

TXCHCT 

BNE 

SOFCB 

LDAA 

#0FFH 

GET  STUFF  CHAR 

STI\A 

TXEND 

LDX 

TXPNTR 

STAA 

13,  X 

SET  PORT*S  OUFG 

BRA 

SOFCD 

SOFCB 

DEX 

STX 

TXCHCT 

LDX 

TBPNTR 

LDAA 

INX 

0,X 

GET  BUFF  CHAR 

CPX 

TXUVAL 

ADJ  BUFF  PNTRS 

BNE 

SOFCC 

LDX 

TXLVAL 

SOFCC 

STX 

TBPNTR 

CPX 

TXLGDP 

LAST  GOOD  DATA? 

BNE 

SOFCD 

LDX 

#0 

YES 

STX 

TXLGDP 

STAB 

TXDONE 

SOFCD 

STAA 

PIAIBD 

OUTPUT  CHAR  #1 

LDX 

OUTCHC 

DEX 

BNE 

SOFD 

JMP 

SOFT 

SOFD 

STX 

OUTCHC 

LDAA 

DATA5 

FIFO  READY? 

BPL 

SOFDA 

JMP 

SOFS 

SOFDA 

LDX 

TXCHCT 

BNE 

SOFDB 

LDAA 

#0FFH 

GET  STUFF  CHAR 

STAA 

TXEND 

LDX 

TXPNTR 

STAA 

13, X 

BRA 

SOFDD 

SOFDB 

DEX 

STX 

TXCHCT 

LDX 

TBPNTR 

LDAA 

INX 

0,X 

GET  BUFF  CHAR 

CPX 

TXUVAL 

ADJ  BUFF  PNTRS 

BNE 

SOFDC 

LDX 

TXLVAL 

SOFDC 

STX 

TBPNTR 

CPX 

TXLGDP 

LAST  GOOD  DATA? 

BNE 

SOFDD 

LDX 

#0 

YES 

STX 

TXLGDP 

STAB 

TXDONE 

SOFDD 

STAA 

PIAIBD 

OUTPUT  CHAR  #2 

LDX 

OUTCHC 
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3128 

DEX 

3129 

BNE 

SOFE 

3130 

JMP 

SOFT 

3131 

SOFE 

STX 

OUTCHC 

3132 

LDAA 

DATA5 

FIFO  READY? 

3133 

BPL 

SOFEA 

3134 

JMP 

SOFS 

3135 

SOFEA 

LDX 

TXCHCT 

3136 

BNE 

SOFEB 

3137 

LDAA 

#0FFH 

GET  STUFF  CHAR 

3138 

STAA 

TXEND 

3139 

LDX 

TXPNTR 

3140 

STAA 

13, X 

SET  PORT'S  UOFG 

3141 

BRA 

SOFED 

3142 

SOFEB 

DEX 

3143 

STX 

TXCHCT 

3144 

LDX 

TBPNTR 

3145 

LDAA 

0,X 

GET  BUFF  CHAR 

3146 

INX 

3147 

CPX 

TXUVAL 

ADJ  BUFF  PNTRS 

3148 

BNE 

SOFEC 

3149 

LDX 

TXLVAL 

3150 

SOFEC 

STX 

TBPNTR 

3151 

CPX 

TXLGDP 

LAST  GOOD  DATA? 

3152 

BNE 

SOFED 

3153 

LDX 

#0 

YES 

3154 

STX 

TXLGDP 

3155 

STAB 

TXDONE 

3156 

SOFED 

STAA 

PIAIBD 

OUTPUT  CHAR  #3 

3157 

LDX 

OUTCHC 

3158 

DEX 

3159 

BNE 

SOFF 

3160 

JMP 

SOFT 

3161 

SOFF 

STX 

OUTCHC 

3162 

LDAA 

DATA5 

FIFO  READY? 

3163 

BPL 

SOFFA 

3164 

JMP 

SOFS 

3165 

SOFFA 

LDX 

TXCHCT 

3166 

BNE 

SOFFB 

3167 

LDAA 

#0FFH 

GET  STUFF  CHAR 

3168 

STAA 

TXEND 

3169 

LDX 

TXPNTR 

3170 

STAA 

13, X 

SET  PORT'S  OUFG 

3171 

BRA 

SOFFD 

3172 

SOFFB 

DEX 

3173 

STX 

TXCHCT 

3174 

LDX 

TBPNTR 

3175 

LDAA 

0,X 

GET  BUFF  CHAR 

3176 

INX 

3177 

CPX 

TXUVAL 

ADJ  BUFF  PNTRS 

3178 

BNE 

SOFFC 

3179 

LDX 

TXLVAL 

3180 

SOFFC 

STX 

TBPNTR 

3181 

CPX 

TXLGDP 

LAST  GOOD  DATA? 

3182 

BNE 

SOFFD 

3183 

LDX 

#0 

YES 

3184 

STX 

TXLGDP 

124 


3185 

STAB 

TXDONE 

3186 

SOFFD 

STAA 

PIAIBD 

OUTPUT  CHAR  #4 

3187 

LDX 

OUTCHC 

3188 

DEX 

3189 

BNE 

SOFG 

3190 

JMP 

SOFT 

3191 

SOFG 

STX 

OUTCHC 

3192 

LDAA 

DATA5 

FIFO  READY? 

3193 

BPL 

SOFGA 

3194 

JMP 

SOFS 

3195 

SOFGA 

LDX 

TXCHCT 

3196 

BNE 

SOFGB 

3197 

LDAA 

#0FFH 

GET  STUFF  CHAR 

3198 

STAA 

TXEND 

3199 

LDX 

TXPNTR 

3200 

STAA 

13, X 

SET  PORT'S  OUFG 

3201 

BRA 

SOFGD 

3202 

SOFGB 

DEX 

3203 

STX 

TXCHCT 

3204 

LDX 

TBPNTR 

3205 

LDAA 

0,X 

GET  BUFF  CHAR 

3206 

INX 

3207 

CPX 

TXUVAL 

ADJ  BUFF  PNTRS 

3208 

BNE 

SOFGC 

3209 

LDX 

TXLVAL 

3210 

SOFGC 

STX 

TBPNTR 

3211 

CPX 

TXLGDP 

LAST  GOOD  DATA? 

3212 

BNE 

SOFGD 

3213 

LDX 

#0 

YES 

3214 

STX 

TXLGDP 

3215 

STAB 

TXDONE 

3216 

SOFGD 

STAA 

PIAIBD 

OUTPUT  CHAR  #5 

3217 

LDX 

OUTCHC 

3218 

DEX 

3219 

BNE 

SOFH 

3220 

JMP 

SOFT 

3221 

SOFH 

STX 

OUTCHC 

3222 

LDAA 

DATA5 

FIFO  READY? 

3223 

BPL 

SOFHA 

3224 

JMP 

SOFS 

3225 

SOFHA 

LDX 

TXCHCT 

3226 

BNE 

SOFHB 

3227 

LDAA 

#0FFH 

GET  STUFF  CHAR 

3228 

STAA 

TXEND 

3229 

LDX 

TXPNTR 

3230 

STAA 

13,  X 

SET  PORT'S  OUFG 

3231 

BRA 

SOFHD 

3232 

SOFHB 

DEX 

3233 

STX 

TXCHCT 

3234 

LDX 

TBPNTR 

3235 

LDAA 

0,X 

GET  BUFF  CHAR 

3236 

INX 

3237 

CPX 

TXUVAL 

ADJ  BUFF  PNTRS 

3238 

BNE  • 

SOFHC 

3239 

LDX 

TXLVAL 

3240 

SOFHC 

STX 

TBPNTR 

3241 

CPX 

TXLGDP 

LAST  GOOD  DATA? 
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3242 

BNE 

SOFHD 

3243 

LDX 

#0 

YES 

3244 

STX 

TXLGDP 

3245 

STAB 

TXDONE 

3246  SOFHD 

STAA 

PIAIBD 

OUTPUT  CHAR  #6 

3247 

LDX 

OUTCHC 

3248 

DEX 

‘ 

3249 

BNE 

SOFI 

3250 

JMP 

SOFT 

3251  SOFI 

STX 

OUTCHC 

3252 

LDAA 

DATA5 

FIFO  READY? 

3253 

BPL 

SOFIA 

3254 

JMP 

SOFS 

3255  SOFIA 

LDX 

TXCHCT 

3256 

BNE 

SOFIB 

3257 

LDAA 

#0FFH 

GET  STUFF  CHAR 

3258 

STAA 

TXEND 

3259 

LDX 

TXPNTR 

3260 

STAA 

13,  X 

SET  PORT’S  OUFG 

3261 

BRA 

SOFID 

3262  SOFIB 

DEX 

3263 

STX 

TXCHCT 

3264 

LDX 

TBPNTR 

3265 

LDAA 

0,X 

GET  BUFF  CHAR 

3266 

INX 

3267 

CPX 

TXUVAL 

ADJ  BUFF  PNTRS 

3268 

BNE 

SOFIC 

3269 

LDX 

TXLVAL 

3270  SOFIC 

STX 

TBPNTR 

3271 

CPX 

TXLGDP 

LAST  GOOD  DATA? 

3272 

BNE 

SOFID 

3273 

LDX 

#0 

YES 

3274 

STX 

TXLGDP 

3275 

STAB 

TXDONE 

3276  SOFID 

STAA 

PIAIBD 

OUTPUT  CHAR  #7 

3277 

LDX 

OUTCHC 

3278 

DEX 

3279 

BNE 

SOFJ 

3280 

JMP 

SOFT 

3281  SOFJ 

STX 

OUTCHC 

3282 

LDAA 

DATA5 

FIFO  READY? 

3283 

BPL 

SOFJA 

3284 

JMP 

SOFS 

3285  SOFJA 

LDX 

TXCHCT 

3286 

BNE 

SOFJB 

3287 

LDAA 

#0FFH 

GET  STUFF  CHAR 

3288 

STAA 

TXEND 

3289 

LDX 

TXPNTR 

3290 

STAA 

13, X 

SET  PORT'S  OUFG 

3291 

BRA 

SOFJD 

3292  SOFJB 

DEX 

3293 

STX 

TXCHCT 

3294 

LDX 

TBPNTR 

3295 

LDAA 

0,X 

GET  BUFF  CHAR 

3296 

INX 

3297 

CPX 

TXUVAL 

ADJ  BUFF  PNTRS 

3298 

BNE 

SOFJC 
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3299 

LDX 

TXLVAL 

3300 

SOFJC 

STX 

TBPNTR 

3301 

CPX 

TXLGDP 

LAST  GOOD  DATA? 

3302 

BNE 

SOFJD 

3303 

LDX 

#0 

YES 

3304 

STX 

TXLGDP 

3305 

STAB 

TXDONE 

3306 

SOFJD 

STAA 

PIAIBD 

OUTPUT  CHAR  #8 

3307 

LDX 

OUTCHC 

3308 

DEX 

3309 

BNE 

SOFK 

3310 

JMP 

SOFT 

3311 

SOFK 

STX 

OUTCHC 

3312 

LDAA 

DATA5 

FIFO  READY? 

3313 

BPL 

SOFKA 

3314 

JMP 

SOFS 

3315 

SOFKA 

LDX 

TXCHCT 

3316 

BNE 

SOFKB 

3317 

LDAA 

#0FFH 

GET  STUFF  CHAR 

3318 

STAA 

TXEND 

3319 

LDX 

TXPNTR 

3320 

STAA 

13, X 

SET  PORT’S  OUFG 

3321 

BRA 

SOFKD 

3322 

SOFKB 

DEX 

3323 

STX 

TXCHCT 

3324 

LDX 

TBPNTR 

3325 

LDAA 

0,X 

GET  BUFF  CHAR 

3326 

INX 

3327 

CPX 

TXUVAL 

ADJ  BUFF  PNTRS 

3328 

BNE 

SOFKC 

3329 

LDX 

TXLVAL 

3330 

SOFKC 

STX 

TBPNTR 

3331 

CPX 

TXLGDP 

LAST  GOOD  DATA? 

3332 

BNE 

SOFKD 

3333 

LDX 

#0 

YES 

3334 

STX 

TXLGDP 

3335 

STAB 

TXDONE 

3336 

SOFKD 

STAA 

PIAIBD 

OUTPUT  CHAR  #9 

3337 

LDX 

OUTCHC 

3338 

DEX 

3339 

BNE 

SOFL 

3340 

JMP 

SOFT 

3341 

SOFL 

STX 

OUTCHC 

3342 

LDAA 

DATA5 

FIFO  READY? 

3343 

BPL 

SOFLA 

3344 

JMP 

SOFS 

3345 

SOFLA 

LDX 

TXCHCT 

3346 

BNE 

SOFLB 

3347 

LDAA 

#0FFH 

GET  STUFF  CHAR 

3348 

STAA 

TXEND 

3349 

LDX 

TXPNTR 

3350 

STAA 

13, X 

SET  PORT'S  OUFG 

3351 

BRA 

SOFLD 

3352 

SOFLB 

DEX 

3353 

STX 

TXCHCT 

3354 

LDX 

TBPNTR 

3355 

LDAA 

0,X 

GET  BUFF  CHAR 
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3356 

INX 

3357 

CPX 

TXUVAL 

ADJ  BUFF  PNTRS 

3358 

BNE 

SOFLC 

3359 

LDX 

TXLVAL 

3360 

SOFLC 

STX 

TBPNTR 

3361 

CPX 

TXLGDP 

LAST  GOOD  DATA? 

3362 

BNE 

SOFLD 

3363 

LDX 

#0 

YES 

3364 

STX 

TXLGDP 

3365 

STAB 

TXDONE 

3366 

SOFLD 

STAA 

PIAIBD 

OUTPUT  CHAR  #10 

3367 

LDX 

OUTCHC 

3368 

DEX 

3369 

BNE 

SOFM 

3370 

JMP 

SOFT 

3371 

SOFM 

STX 

OUTCHC 

3372 

LDAA 

DATA5 

FIFO  READY? 

3373 

BPL 

SOFMA 

3374 

JMP 

SOFS 

3375 

SOFMA 

LDX 

TXCHCT 

3376 

BNE 

SOFMB 

3377 

LDAA 

#0FFH 

GET  STUFF  CHAR 

3378 

STAA 

TXEND 

3379 

LDX 

TXPNTR 

3380 

STAA 

13, X 

SET  PORT'S  OUFG 

3381 

BRA 

SOFMD 

3382 

SOFMB 

DEX 

3383 

STX 

TXCHCT 

3384 

LDX 

TBPNTR 

3385 

LDAA 

0,X 

GET  BUFF  CHAR 

3386 

INX 

3387 

CPX 

TXUVAL 

ADJ  BUFF  PNTRS 

3388 

BNE 

SOFMC 

3389 

LDX 

TXLVAL 

3390 

SOFMC 

STX 

TBPNTR 

3391 

CPX 

TXLGDP 

LAST  GOOD  DATA? 

3392 

BNE 

SOFMD 

3393 

LDX 

#0 

YES 

3394 

STX 

TXLGDP 

3395 

STAB 

TXDONE 

3396 

SOFMD 

STAA 

PIAIBD 

OUTPUT  CHAR  #11 

3397 

LDX 

OUTCHC 

3398 

DEX 

3399 

BNE 

SOFN 

3400 

JMP 

SOFT 

3401 

SOFN 

STX 

OUTCHC 

3402 

LDAA 

DATA5 

FIFO  READY? 

3403 

BPL 

SOFNA 

3404 

JMP 

SOFS 

3405 

SOFNA 

LDX 

TXCHCT 

3406 

BNE 

SOFNB 

3407 

LDAA 

#0FFH 

GET  STUFF  CHAR 

3408 

STAA 

TXEND 

3409 

LDX 

TXPNTR 

3410 

STAA 

13, X 

SET  PORT’  OUFG 

3411 

BRA 

SOFND 

3412 

SOFNB 

DEX 
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3413 

STX 

TXCHCT 

3414 

LDX 

TBPNTR 

3415 

LDAA 

0,X 

GET  BUFF  CHAR 

3416 

INX 

3417 

CPX 

TXUVAL 

AND  BUFF  PNTRS 

3418 

BNE 

SOFNC 

3419 

LDX 

TXLVAL 

3420 

SOFNC 

STX 

TBPNTR 

3421 

CPX 

TXLGDP 

LAST  GOOD  DATA? 

3422 

BNE 

SOFND 

3423 

LDX 

#0 

YES 

3424 

STX 

TXLGDP 

3425 

STAB 

TXDONE 

3426 

SOFND 

STAA 

PIAIBD 

OUTPUT  CHAR  #12 

3427 

LDX 

OUTCHC 

3428 

DEX 

3429 

BNE 

SOFO 

3430 

JMP 

SOFT 

3431 

SOFO 

STX 

OUTCHC 

3432 

LDAA 

DATA5 

FIFO  READY? 

3433 

BPL 

SOFOA 

3434 

JMP 

SOFS 

3435 

SOFOA 

LDX 

TXCHCT 

3436 

BNE 

SOFOB 

3437 

LDAA 

#0FFH 

GET  STUFF  CHAR 

3438 

STAA 

TXEND 

3439 

LDX 

TXPNTR 

3440 

STAA 

13, X 

SET  PORT’S  OUFG 

3441 

BRA 

SOFOD 

3442 

SOFOB 

DEX 

3443 

STX 

TXCHCT 

3444 

LDX 

TBPNTR 

3445 

LDAA 

0,X 

GET  BUFF  CHAR 

3446 

INX 

3447 

CPX 

TXUVAL 

ADJ  BUFF  PNTRS 

3448 

BNE 

SOFOC 

3449 

LDX 

TXLVAL 

3450 

SOFOC 

STX 

TBPNTR 

3451 

CPX 

TXLGDP 

LAST  GOOD  DATA? 

3452 

BNE 

SOFOD 

3453 

LDX 

#0 

YES 

3454 

STX 

TXLGDP 

3455 

STAB 

TXDONE 

3456 

SOFOD 

STAA 

PIAIBD 

OUTPUT  CHAR  #13 

3457 

LDX 

OUTCHC 

3458 

DEX 

3459 

BNE 

SOFP 

3460 

JMP 

SOFT 

3461 

SOFP 

STX 

OUTCHC 

3462 

LDAA 

DATA5 

FIFO  READY? 

3463 

BPL 

SOFPA 

3464 

JMP 

SOFS 

3465 

SOFPA 

LDX 

TXCHCT 

3466 

BNE 

SOFPB 

3467 

LDAA 

#0FFH 

GET  BUFF  CHAR 

3468 

STAA 

TXEND 

3469 

LDX 

TXPNTR 
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3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 


SOFPB 


SOFPC 


SOFPD 


SOFQ 


SOFQA 


SOFQB 


SOFQC 


SOFQD 


SOFR 


SOFRA 


STAA 

13,  X 

BRA 

SOFPD 

DEX 

STX 

TXCHCT 

LDX 

TBPNTR 

LDAA 

INX 

0,X 

CPX 

TXUVAL 

BNE 

SOFPC 

LDX 

TXLVAL 

STX 

TBPNTR 

CPX 

TXLGDP 

BNE 

SOFPD 

LDX 

#0 

STX 

TXLGDP 

STAB 

TXDONE 

STAA 

PIAIBD 

LDX 

OUTCHC 

DEX 

BNE 

SOFQ 

JMP 

SOFT 

STX 

OUTCHC 

LDAA 

DATA5 

BPL 

SOFQA 

JMP 

SOFS 

LDX 

TXCHCT 

BNE 

SOFQB 

LDAA 

#0FFH 

STAA 

TXEND 

LDX 

TXPNTR 

STAA 

13,  X 

BRA 

SOFQD 

DEX 

STX 

TXCHCT 

LDX 

TBPNTR 

LDAA 

INX 

0,X 

CPX 

TXUVAL 

BNE 

SOFQC 

LDX 

TXLVAL 

STX 

TBPNTR 

CPX 

TXLGDP 

BNE 

SOFQD 

LDX 

#0 

STX 

TXLGDP 

STAB 

TXDONE 

STAA 

PIAIBD 

LDX 

OUTCHC 

DEX 

BEQ 

SOFT 

STX 

OUTCHC 

LDAA 

DATA5 

BPL 

SOFRA 

JMP 

SOFS 

LDX 

TXCHCT 

BNE 

SOFRB 

LDAA 

#0FFH 

SET  PORT*S  OUFG 

GET  BUF  CHAR 
ADJ  BUFF  PNTRS 

LAST  GOOD  DATA? 
YES 

OUTPUT  CHAR  #14 

FIFO  READY? 

GET  STUFF  CHAR 

SET  PORT'S  OUFG 

GET  BUFF  CHAR 
ADJ  BUFF  PNTRS 

LAST  GOOD  DATA? 
YES 

OUTPUT  CHAR  #15 

FIFO  READY? 

GET  STUFF  CHAR 


130 


3527 

STAA 

TXEND 

3528 

LDX 

TXPNTR 

3529 

STAA 

13, X 

3530 

BRA 

SOFRD 

3531 

SOFRB 

DEX 

3532 

STX 

TXCHCT 

3533 

LDX 

TBPNTR 

3534 

LDAA 

0,X 

3535 

INX 

3536 

CPX 

TXUVAL 

3537 

BNE 

SOFRC 

3538 

LDX 

TXLVAL 

3539 

SOFRC 

STX 

TBPNTR 

3540 

CPX 

TXLGDP 

3541 

BNE 

SOFRD 

3542 

LDX 

#0 

3543 

STX 

TXLGDP 

3544 

STAB 

TXDONE 

3545 

SOFRD 

STAA 

PIAIBD 

3546 

LDX 

OUTCHC 

3547 

DEX 

3548 

BEQ 

SOFT 

3549 

STX 

OUTCHC 

3550 

SOFS 

LDX 

TXPNTR 

3551 

LDAA 

TXCHCT 

3552 

LDAB 

TXCHCT+1 

3553 

STAA 

4,X 

3554 

STAB 

5,X 

3555 

LDAA 

TBPNTR 

3556 

LDAB 

TBPNTR+1 

3557 

STAA 

2,X 

3558 

STAB 

3,X 

3559 

LDAA 

TXLGDP 

3560 

LDAB 

TXLGDP +1 

3561 

STAA 

14,  X 

3562 

STAB 

15, X 

3563 

RTS 

3564 

SOFT 

LDAA 

TXEND 

3565 

BEQ 

SOFTB 

3566 

SOFTA 

CLRB 

3567 

STAB 

TXEND 

3568 

STAB 

TXDONE 

3569 

STAB 

TXCHCT 

3570 

STAB 

TXCHCT+1 

3571 

LDAA 

XMASK 

3572 

ANDA 

PAIAD 

3573 

STAA 

PAIAD 

3574 

STAA 

PIAIAD 

3575 

LDX 

TXPNTR 

3576 

STAB 

8,X 

3577 

STAB 

13, X 

3578 

STAB 

6,X 

3579 

STAB 

4,X 

3580 

STAB 

5,X 

3581 

LDAB 

#3 

3582 

STAB 

7,X 

3583 

LDAA 

MASKR 

SET  PORT'S  OUFG 

GET  BUFF  CHAR 
ADJ  BUFF  PNTRS 

LAST  GOOD  DATA? 

YES 

OUTPUT  CHAR  #16 

STORE  BUFF  PNTRS 

RESTORE  BUFF  CHAR  COUNT 

RESTORE  BUFF  OUTPUT  PNTR 

tf'. 

RESTORE  L.G.D.  PNTR 

CLR  "DATA  RDY  PORT-" 

CLR  TX  REQ  FLAG 
CLR  OUFG 
CLR  EMPTY 
CLR  CHCT 

SET  FLBFG 

TX  ACK  OF  I/O  PORT 
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3584 

ANDA 

MRFTA 

3585 

LDAB 

XMASK 

3586 

COMB 

3587 

STAB 

XMASK 

3588 

ORAA 

XMASK 

3589 

STAA 

MRFTA 

3590 

STAA 

LATCH3 

3591 

BRA 

SOFU 

3592  SOFTB 

LDAA 

TXDONE 

3593 

beq 

SOFU 

3594 

LDAA 

XMASK 

3595 

COMA 

3596 

ANDA 

DATAl 

3597 

BEQ 

SOFTA 

3598  SOFU 

CLRA 

3599 

STAA 

SOEN 

3600 

BRA 

SOFS 

3601  SOFY 

LDAB 

#0FFH 

3602 

LDAA 

TXEND 

3603 

BNE 

SOFYA 

3604 

LDAA 

TXDONE 

3605 

BEQ 

SOFYXX 

3606 

LDAA 

XMASK 

3607 

COMA 

3608 

ANDA 

DATAl 

3609 

BEQ 

SOFYXX 

3610 

CLRA 

3611 

STAA 

TXDONE 

•3612  SOFYXX 

JMP 

SOFC 

3613  SOFYA 

LDX 

OUTCHC 

3614 

LDAA 

DATA5 

3615 

BPL 

SOFYAl 

3616 

RTS 

3617  SOFYAl 

STAB 

PIAIBD 

3618 

DEX 

3619 

BEQ 

SOFTA 

3620  SOFYB 

LDAA 

DATA5 

3621 

BPL 

SOFYBl 

3622 

STX 

OUTCHC 

3623 

RTS 

3624  SOFYBl 

STAB 

PIAIBD 

3625 

DEX 

3626 

BEQ 

SOFTA 

3627  SOFYC 

LDAA 

DATA5 

3628 

BPL 

SOFYCl 

3629 

STX 

OUTCHC 

3630 

RTS 

3631  SOFYCl 

STAB 

PIAIBD 

3632 

DEX 

3633 

BNE 

SOFYD 

3634 

JMP 

SOFTA 

3635  SOFYD 

LDAA 

DATA5 

3636 

BPL 

SOFYDl 

3637 

STX 

OUTCHC 

3638 

RTS 

3639  SOFYDl 

STAB 

PIAIBD 

3640 

DEX 

AND  SET  FIFO'S  MR 

TEST  PORT'S  TX  REQ  INPUT 


TEST  PORT'S  TX  REQ  INPUT 

BRANCH  IF  TX  REQ  =  0 
GET  HERE  WITH  MULTIPLE 
TX  REQS.  PER  FRAME 

FIFO  RDY? 

OUTPUT  FILL  CHAR  #1 

FIFO  RDY? 

OUTPUT  FILL  CHAR  #2 

FIFO  RDY? 

OUTPUT  FILL  CHAR  #3 

FIFO  RDY? 

OUTPUT  FILL  CHAR  #4 
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3641 

BNE 

SOFYE 

3642 

JMP 

SOFTA 

3643 

SOFYE 

LDAA 

DATA5 

FIFO  RDY? 

3644 

BPL 

SOFYEl 

3645 

STX 

OUTCHC 

3646 

RTS 

3647 

SOFYEl 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#5 

3648 

DEX 

3649 

BNE 

SOFYF 

3650 

JMP 

SOFTA 

3651 

SOFYF 

LDAA 

DATA5 

FIFO  RDY? 

3652 

BPL 

SOFYFl 

3653 

STX 

OUTCHC 

3654 

RTS 

3655 

SOFYFl 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#6 

3656 

DEX 

3657 

BNE 

SOFYG 

3658 

JMP 

SOFTA 

3659 

SOFYG 

LDAA 

DATA5 

FIFO  RDY? 

3660 

BPL 

SOFYGl 

3661 

STX 

OUTCHC 

3662 

RTS 

3663 

SOFYGl 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#7 

3664 

DEX 

3665 

BNE 

SOFYH 

3666 

JMP 

SOFTA 

3667 

SOFYH 

LDAA 

DATA5 

FIFO  RDY? 

3668 

BPL 

SOFYHl 

3669 

STX 

OUTCHC 

3670 

RTS 

3671 

SOFYHl 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#8 

3672 

DEX 

3673 

BNE 

SOFYI 

3674 

JMP 

SOFTA 

3675 

SOFYI 

LDAA 

DATA5 

FIFO  RDY? 

3676 

BPL 

SOFYIl 

3677 

STX 

OUTCHC 

3678 

RTS 

3679 

SOFYIl 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#9 

3680 

DEX 

3681 

BNE 

SOFYJ 

3682 

JMP 

SOFTA 

3683 

SOFYJ 

LDAA 

DATA5 

FIFO  RDY? 

3684 

BPL 

SOFYJl 

3685 

STX 

OUTCHC 

3686 

RTS 

3687 

SOFYJl 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#10 

3688 

DEX 

3689 

BNE 

SOFYK 

3690 

JMP 

SOFTA 

3691 

SOFYK 

LDAA 

DATA5 

FIFO  RDY? 

3692 

BPL 

SOFYKl 

3693 

STX 

OUTCHC 

3694 

RTS 

3695 

SOFYKl 

STAB 

PIAIBD 

OUTPUT  FILL 

CHAR 

#11 

3696 

DEX 

3697 

BNE 

SOFYL 

133 


3698 

JMP 

SOFTA 

3699 

SOFYL 

LDAA 

DATA5 

FIFO  RDY? 

3700 

BPL 

SOFYLl 

3701 

STX 

OUTCHC 

3702 

RTS 

3703 

SOFYLl 

STAB 

PIAIBD 

OUTPUT  FILL  CHAR  #12 

3704 

DEX 

3705 

BNE 

SOFYM 

3706 

JMP 

SOFTA 

3707 

SOFYM 

LDAA 

DATA5 

FIFO  RDY? 

3708 

BPL 

SOFYMl 

3709 

STX 

OUTCHC 

3710 

RTS 

3711 

SOFYMl 

STAB 

PIAIBD 

OUTPUT  FILL  CHAR  #13 

3712 

DEX 

3713 

BNE 

SOFYN 

3714 

JMP 

SOFTA 

3715 

SOFYN 

LDAA 

DATA5 

FIFO  RDY? 

3716 

BPL 

SOFYNl 

3717 

STX 

OUTCHC 

3718 

RTS 

3719 

SOFYNl 

STAB 

PIAIBD 

OUTPUT  FILL  CHAR  #14 

3720 

DEX 

3721 

BNE 

SOFYO 

3722 

JMP 

SOFTA 

3723 

SOFYO 

LDAA 

DATA5 

FIFO  RDY? 

3724 

BPL 

SOFYOl 

3725 

STX 

OUTCHC 

3726 

RTS 

3727 

SOFYOl 

STAB 

PIAIBD 

OUTPUT  FILL  CHAR  #15 

3728 

DEX 

3729 

BNE 

SOFYP 

3730 

JMP 

SOFTA 

3731 

SOFYP 

LDAA 

DATA5 

FIFO  RDY? 

3732 

BPL 

SOFYPl 

3733 

STX 

OUTCHC 

3734 

RTS 

3735 

SOFYPl 

STAB 

PIAIBD 

OUTPUT  FILL  CHAR  #16 

3736 

DEX 

3737 

BNE 

SOFYQ 

3738 

JMP 

SOFTA 

3739 

SOFYQ 

STX 

OUTCHC 

3740 

RTS 

3741 

*********************************************************** 

3742 

* 

3743 

* 

BEGIN 

SERVICING 

SYSTEM  INPUT  FIFO 

3744 

* 

3745 

* 

3746 

SIF 

LDAA 

SIEN 

3747 

BNE 

SIFA 

3748 

JMP 

TDMA 

3749 

* 

3750 

SIFl 

LDX 

INCHC 

*RX  SELF  TEST  ROUTINE* 

3751 

LDAB 

#16 

3752 

SIF2 

LDAA 

DATAl 

CHAR  IN  RX  FIFO? 

3753 

BPL 

SIF6 

3754 

LDAA 

DATA2 

LOAD  CHAR 
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3755 

CMPA 

#033H 

3756 

BEQ 

SIF3 

CORRECT  CHARACTER? 

3757 

STAB 

STERR 

3758 

SIF3 

DEX 

3759 

BNE 

SIF5 

3760 

CLRA 

3761 

STAA 

SIEN 

3762 

STAA 

SELFTR 

3763 

STX 

INCHC 

3764 

LDAA 

PAIAD 

3765 

LDAB 

STERR 

3766 

BNE 

SIF3A 

3767 

ANDA 

#07FH 

CLR  DBP  SELF  TEST  FAIL 

3768 

BRA 

SIF4 

3769 

SIF3A 

ORAA 

#080H 

SET  DBP  SELF  TEST  FAIL 

3770 

SIF4 

STAA 

PAIAD 

3771 

STAA 

PIAIAD 

3772 

ANDA 

#080H 

ADJUST  SELF  TEST 

3773 

ORAA 

BITELT 

FAIL  BITE  LITE 

3774 

STAA 

BITELT 

3775 

STAA 

LATCH2 

3776 

CLR 

STERR 

3777 

Jiyip 

TDMA 

3778 

SIF5 

DECB 

3779 

BNE 

SIF2 

3780 

SIF6 

STX 

INCHC 

3781 

OMP 

TDMA 

3782 

* 

3783 

SIFA 

LDAA 

SELFTR 

RX  SELF  TEST? 

3784 

BNE 

SIFl 

3785 

LDAA 

INPTRC 

3786 

BEQ 

SIFAIA 

3787 

LDX 

RCRXPT 

3788 

SIFR 

LDAA 

DATAl 

CHAR  IN  INPUT  FIFO? 

3789 

BMI 

SIFRA 

3790 

SIFRl 

STX 

RCRXPT 

3791 

JMP 

TDMA 

3792 

SIFRA 

LDAA 

DATA2 

LOAD  &  STORE  FIFO  CHAR 

3793 

STAA 

0,X 

3794 

INX 

3795 

CPX 

#ERCRX 

BUFFER  FULL? 

3796 

BNE 

SIFR 

3797 

SEI 

3798 

LDX 

#SRCRX 

3799 

LDAA 

0,X 

3800 

STAA 

ACIAD 

LOAD  AC I A  WITH  1 

3801 

INX 

R/CCOW  RX  CHARS. 

3802 

LDAA 

#0BDH 

3803 

STAA 

ACIACS 

3804 

STAA 

TXIRFG 

3805 

STX 

RCRXPT 

3806 

CLR 

SIEN 

3807 

CLI 

3808 

JMP 

TDMA 

3809 

*********************************************************** 

3810 

* 

3811 

*FILL 

MISSING 

RX  BURST 

WITH  "FF”  DATA 
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3812 

* 

3813 

SIFRB 

LDAB 

#16 

3814 

SIFRC 

LDAA 

#0FFH 

3815 

LDX 

RBPNTR 

3816 

STAA 

0,X 

3817 

INX 

3818 

CPX 

RXUVAL 

3819 

BNE 

SIFRD 

3820 

LDX 

RXLVAL 

3821 

SIFRD 

STX 

RBPNTR 

3822 

LDX 

RBCHCT 

3823 

INX 

3824 

STX 

RBCHCT 

3825 

LDX 

INCHC 

3826 

DEX 

3827 

BNE 

SIFRE 

3828 

CLR 

FILLFG 

3829 

JMP 

SIFQ 

3830 

SIFRE 

STX 

INCHC 

3831 

DECB 

3832 

BNE 

SIFRC 

3833 

JNP 

SIFP 

3834 

* 

3835 

* 

3836 

SIFAIA 

LDX 

RXPNTR 

3837 

LDAA 

8,X 

3838 

BNE 

SIFAIC 

3839 

LDAA 

PTONRX 

3840 

ANDA 

MASKIO 

3841 

BNE 

SIFAIB 

3842 

SIFAIC 

CLR 

SIEN 

3843 

CLR 

FILLFG 

3844 

JMP 

TDMA 

3845 

SIFAIB 

LDX 

0,X 

3846 

STX 

RBPNTR 

3847 

LDX 

RXPNTR 

3848 

LDX 

4,X 

3849 

STX 

RBCHCT 

3850 

LDAA 

FILLFG 

3851 

BNE 

SIFRB 

3852 

LDAA 

DATAl 

3853 

BMI 

SIFAl 

3854 

JMP 

TDMA 

3855 

SIFAl 

LDAA 

DATA2 

3856 

LDX 

RBPNTR 

3857 

STAA 

0,X 

3858 

INX 

3859 

CPX 

RXUVAL 

3860 

BNE 

SIFA2 

3861 

LDX 

RXLVAL 

3862 

SIFA2 

STX 

RBPNTR 

3863 

LDX 

RBCHCT 

3864 

INX 

3865 

STX 

RBCHCT 

3866 

LDX 

INCHC 

3867 

DEX 

3868 

BNE 

SIFB 

INIT  STORE  COUNTER 

ADJ  PNTRS 

TEST  FIFO  CH  CNT 

DEC  STORE  COUNTER 

SETUP  RCV  PNTRS 

TEST  PORT'S  TX  REQ  FLAG 

TEST  IF  PORT  IS  ON 

♦ABORT  RX  BURST:  TX  REQ* 
*OR  PORT  IS  OFF* 

FILL  BURST  WITH  "FF"? 

LOAD  &  STORE  CHAR  #1 

ADJ  PNTRS 

TEST  FIFO  CH  CNT 
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3869 

JMP 

SIFQ 

3870 

SIFB 

STX 

INCHC 

3871 

LDAA 

DATAl 

3872 

BMI 

SIFBl 

3873 

JMP 

SIFP 

3874 

SIFBl 

LDAA. 

DATA2 

3875 

LDX 

RBPNTR 

3876 

STAA 

0,X 

3877 

INX 

3878 

CPX 

RXUVAL 

3879 

BNE 

SIFB2 

3880 

LDX 

RXLVAL 

3881 

SIFB2 

STX 

RBPNTR 

3882 

LDX 

RBCHCT 

3883 

INX 

3884 

STX 

RBCHCT 

3885 

LDX 

INCHC 

3886 

DEX 

3887 

BNE 

SIFC 

3888 

JMP 

SIFQ 

3889 

SIFC 

STX 

INCHC 

3890 

LDAA 

DATAl 

3891 

BMI 

SIFCl 

3892 

JMP 

SIFP 

3893 

SIFCl 

LDAA 

DATA2 

3894 

LDX 

RBPNTR 

3895 

STAA 

0,X 

3896 

INX 

3897 

CPX 

RXUVAL 

3898 

BNE 

SIFC2 

3899 

LDX 

RXLVAL 

3900 

SIFC2 

STX 

RBPNTR 

3901 

LDX 

RBCHCT 

3902 

INX 

3903 

STX 

RBCHCT 

3904 

LDX 

INCHC 

3905 

DEX 

3906 

BNE 

SIFD 

3907 

JMP 

SIFQ 

3908 

SIFD 

STX 

INCHC 

3909 

LDAA 

DATAl 

3910 

BMI 

SIFDl 

3911 

JMP 

SIFP 

3912 

SIFDl 

LDAA 

DATA2 

3913 

LDX 

RBPNTR 

3914 

STAA 

0,X 

3915 

INX 

3916 

CPX 

RXUVAL 

3917 

BNE 

SIFD2 

3918 

LDX 

RXLVAL 

3919 

SIFD2 

STX 

RBPNTR 

3920 

LDX 

RBCHCT 

3921 

INX 

3922 

STX 

RBCHCT 

3923 

LDX 

INCHC 

3924 

DEX 

3925 

BNE 

SIFE 

LOAD  &  STORE  FIFO  CHAR  #2 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 

LOAD  &  STORE  FIFO  CHAR  #3 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 

LOAD  &  STORE  FIFO  CHAR  #4 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 
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3926 

JMP 

SIFQ 

3927 

SIFE 

STX 

INCHC 

3928 

LDAA 

DATAl 

3929 

BMI 

SIFEl 

3930 

JMP 

SIFP 

3931 

SIFEl 

LDAA 

DATA2 

3932 

LDX 

RBPNTR 

3933 

STAA 

0,X 

3934 

INX 

3935 

CPX 

RXUVAL 

3936 

BNE 

SIFE2 

3937 

LDX 

RXLVAL 

3938 

SIFE2 

STX 

RBPNTR 

3939 

LDX 

RBCHCT 

3940 

INX 

3941 

STX 

RBCHCT 

3942 

LDX 

INCHC 

3943 

DEX 

3944 

BNE 

SIFF 

3945 

JMP 

SIFQ 

3946 

SIFF 

STX 

INCHC 

3947 

LDAA 

DATAl 

3948 

BMI 

SIFFl 

3949 

JMP 

SIFP 

3950 

SIFFl 

LDAA 

DATA2 

3951 

LDX 

RBPNTR 

3952 

STAA 

0,X 

3953 

INX 

3954 

CPX 

RXUVAL 

3955 

BNE 

SIFF2 

3956 

LDX 

RXLVAL 

3957 

SIFF2 

STX 

RBPNTR 

3958 

LDX 

RBCHCT 

3959 

INX 

3960 

STX 

RBCHCT 

3961 

LDX 

INCHC 

3962 

DEX 

3963 

BNE 

SIFG 

3964 

JMP 

SIFQ 

3965 

SIFG 

STX 

INCHC 

3966 

LDAA 

DATAl 

3967 

BMI 

SIFGl 

3968 

JMP 

SIFP 

3969 

SIFGl 

LDAA 

DATA2 

3970 

LDX 

RBPNTR 

3971 

STAA 

0,X 

3972 

INX 

3973 

CPX 

RXUVAL 

3974 

BNE 

SIFG2 

3975 

LDX 

RXLVAL 

3976 

SIFG2 

STX 

RBPNTR 

3977 

LDX 

RBCHCT 

3978 

INX 

3979 

STX 

RBCHCT 

3980 

LDX 

INCHC 

3981 

DEX 

3982 

BNE 

SIFH 

LOAD  &  STORE  FIFO  CHAR  #5 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 

LOAD  &  STORE  FIFO  CHAR  #6 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 

LOAD  &  STORE  FIFO  CHAR  #7 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 
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3983 

JMP 

SIFQ 

3984 

SIFH 

STX 

INCHC 

3985 

LDAA 

DATAl 

3986 

BMI 

SIFHl 

3987 

JMP 

SIFP 

3988 

SIFHl 

LDAA 

DATA2 

3989 

LDX 

RBPNTR 

3990 

STAA 

0,X 

3991 

INX 

3992 

CPX 

RXUVAL 

3993 

BNE 

SIFH2 

3994 

LDX 

RXLVAL 

3995 

SIFH2 

STX 

RBPNTR 

3996 

LDX 

RBCHCT 

3997 

INX 

3998 

STX 

RBCHCT 

3999 

LDX 

INCHC 

4000 

DEX 

4001 

BNE 

SIFI 

4002 

JMP 

SIFQ 

4003 

SIFI 

STX 

INCHC 

4004 

LDAA 

DATAl 

4005 

BMI 

SIFIl 

4006 

JMP 

SIFP 

4007 

SIFIl 

LDAA 

DATA2 

4008 

LDX 

RBPNTR 

4009 

STAA 

0,X 

4010 

INX 

4011 

CPX 

RXUVAL 

4012 

BNE 

SIFI2 

4013 

LDX 

RXLVAL 

4014 

SIFI2 

STX 

RBPNTR 

4015 

LDX 

RBCHCT 

4016 

INX 

4017 

STX 

RBCHCT 

4018 

LDX 

INCHC 

4019 

DEX 

4020 

BNE 

SIFX 

4021 

JMP 

SIFQ 

4022 

SIFX 

STX 

INCHC 

4023 

LDAA 

DATAl 

4024 

BMI 

SIFXl 

4025 

JMP 

SIFP 

4026 

SIFXl 

LDAA 

DATA2 

4027 

LDX 

RBPNTR 

4028 

STAA 

0,X 

4029 

INX 

4030 

CPX 

RXUVAL 

4031 

BNE 

SIFX2 

4032 

LDX 

RXLVAL 

4033 

SIFX2 

STX 

RBPNTR 

4034 

LDX 

RBCHCT 

4035 

INX 

4036 

STX 

RBCHCT 

4037 

LDX 

INCHC 

4038 

DEX 

4039 

BNE 

SIFJ 

LOAD  &  STORE  FIFO  CHAR  #8 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 

LOAD  &  STORE  FIFO  CHAR  #9 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 

LOAD  &  STORE  FIFO  CHAR  #10 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 
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4040 

JMP 

SIFQ 

4041 

SIFJ 

STX 

INCHC 

4042 

LDAA 

DATAl 

4043 

BMI 

SIFJl 

4044 

JMP 

SIFP 

4045 

SIFJl 

LDAA 

DATA2 

4046 

LDX 

RBPNTR 

4047 

STAA 

0,X 

4048 

INX 

4049 

CPX 

RXUVAL 

4050 

BNE 

SIFJ2 

4051 

LDX 

RXLVAL 

4052 

SIFJ2 

STX 

RBPNTR 

4053 

LDX 

RBCHCT 

4054 

INX 

4055 

STX 

RBCHCT 

4056 

LDX 

INCHC 

4057 

DEX 

4058 

BNE 

SIFK 

4059 

JMP 

SIFQ 

4060 

SIFK 

STX 

INCHC 

4061 

LDAA 

DATAl 

4062 

BMI 

SIFKl 

4063 

JMP 

SIFP 

4064 

SIFKl 

LDAA 

DATA2 

4065 

LDX 

RBPNTR 

4066 

STAA 

0,X 

4067 

INX 

4068 

CPX 

RXUVAL 

4069 

BNE 

SIFK2 

4070 

LDX 

RXLVAL 

4071 

SIFK2 

STX 

RBPNTR 

4072 

LDX 

RBCHCT 

4073 

INX 

4074 

STX 

RBCHCT 

4075 

LDX 

INCHC 

4076 

DEX 

4077 

BNE 

SIFL 

4078 

JMP 

SIFQ 

4079 

SIFL 

STX 

INCHC 

4080 

LDAA 

DATAl 

4081 

BMI 

SIFLl 

4082 

JMP 

SIFP 

4083 

SIFLl 

LDAA 

DATA2 

4084 

LDX 

RBPNTR 

4085 

STAA 

0,X 

4086 

INX 

4087 

CPX 

RXUVAL 

4088 

BNE 

SIFL2 

4089 

LDX 

RXLVAL 

4090 

SIFL2 

STX 

RBPNTR 

4091 

LDX 

RBCHCT 

4092 

INX 

4093 

STX 

RBCHCT 

4094 

LDX 

INCHC 

4095 

DEX 

4096 

BNE 

SIFM 

LOAD  Sc  STORE  FIFO  CHAR  #11 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 

LOAD  Sc  STORE  FIFO  CHAR  #12 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 

LOAD  Sc  STORE  FIFO  CHAR  #13 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 
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4097 

JMP 

SIFQ 

4098 

SIFM 

STX 

INCHC 

4099 

LDAA 

DATAl 

4100 

BPL 

SIFP 

4101 

SIFMl 

LDAA 

DATA2 

4102 

LDX 

RBPNTR 

4103 

STAA 

X 

o 

4104 

INX 

4105 

CPX 

RXUVAL 

4106 

BNE 

SIFM2 

4107 

LDX 

RXLVAL 

4108 

SIFM2 

STX 

RBPNTR 

4109 

LDX 

RBCHCT 

4110 

INX 

4111 

STX 

RBCHCT 

4112 

LDX 

INCHC 

4113 

DEX 

4114 

BEQ 

SIFQ 

4115 

SIFN 

STX 

INCHC  • 

4116 

LDAA 

DATAl 

4117 

BPL 

SIFP 

4118 

SIFNl 

LDAA 

DATA2 

4119 

LDX 

RBPNTR 

4120 

STAA 

0,X 

4121 

INX 

4122 

CPX 

RXUVAL 

4123 

BNE 

SIFN2 

4124 

LDX 

RXLVAL 

4125 

SIFN2 

STX 

RBPNTR 

4126 

LDX 

RBCHCT 

4127 

INX 

4128 

STX 

RBCHCT 

4129 

LDX 

INCHC 

4130 

DEX 

4131 

BEQ 

SIFQ 

4132 

SIFO 

STX 

INCHC 

4133 

LDAA 

DATAl 

4134 

BPL 

SIFP 

4135 

SIFOl 

LDAA 

DATA2 

4136 

LDX 

RBPNTR 

4137 

STAA 

0,X 

4138 

INX 

4139 

CPX 

RXUVAL 

4140 

BNE 

SIF02 

4141 

LDX 

RXLVAL 

4142 

SIF02 

STX 

RBPNTR 

4143 

LDX 

RBCHCT 

4144 

INX 

4145 

STX 

RBCHCT 

4146 

LDX 

INCHC 

4147 

DEX 

4148 

BEQ 

SIFQ 

4149 

STX 

INCHC 

4150 

SIFP 

LDX 

RXPNTR 

4151 

LDAA 

RBCHCT 

4152 

LDAB 

RBCHCT+1 

4153 

STAA 

4,X 

LOAD  &  STORE  FIFO  CHAR  #14 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 

LOAD  &  STORE  FIFO  CHAR  #15 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 

LOAD  Sc  STORE  FIFO  CHAR  #16 

ADJ  PNTRS 

TEST  FIFO  CHAR  COUNT 

UPDATE  PORT'S  BUFF  PNTRS. 
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4154 

STAB 

5,X 

4155 

LDAA 

RBPNTR 

4156 

LDAB 

RBPNTR+1 

4157 

STAA 

o,x 

4158 

STAB 

l,x 

4159 

JMP 

TDMA 

4160 

SIFQ 

CLRA 

4161 

STAA 

SIEN 

4162 

BRA 

SIFP 

4163 

*********************************************************** 

4164 

* 

4165 

* 

INTERRUPT 

REQUEST 

SERVICE  ROUTINE 

4166 

* 

4167 

* 

4168 

IRS 

LDAB 

ACIACS 

4169 

LDAA 

TXIRFG 

4170 

BEQ 

IRSC 

4171 

BITB 

#2 

TDR  EMPTY? 

4172 

BEQ 

IRSC 

4173 

LDX 

RCRXPT 

4174 

IRSA 

LDAA 

0,X 

4175 

STAA 

AC  I  AD 

OUTPUT  CHAR  TO  AC I A 

4176 

INX 

4177 

STX 

RCRXPT 

4178 

CPX 

#ERCRX 

4179 

BNE 

IRSB 

4180 

LDAA 

#09DH 

CLR  TX  IRQ  ENABLE 

4181 

STAA 

ACIACS 

4182 

CLR 

TXIRFG 

4183 

IRSB 

BITB 

#1 

RDR  FUfLL? 

4184 

BNE 

IRSE 

4185 

RTI 

4186 

IRSC 

BITB 

#1 

4187 

BNE 

IRSE 

4188 

IRSD 

LDAA 

#1 

RCCOW/CCOW  BITE  ERROR: 

4189 

STAA 

IRSBIT 

IRQ  ERROR  OR  SCU  FORMAT  ERR 

4190 

RTI 

4191 

IRSE 

BITB 

#070H 

ACIA  RX  ERRORS? 

4192 

BEQ 

IRSF 

4193 

LDAA 

#1 

4194 

STAA 

IRSBIT 

4195 

IRSF 

LDAA 

ACIAD 

LOAD  ACIA  RX  CHAR 

4196 

LDAB 

RCFG 

4197 

BEQ 

IRSJ 

4198 

DECB 

4199 

BEQ 

IRSG 

4200 

DECB 

4201 

BNE 

IRSN 

4202 

LDX 

RTXPT 

4203 

STAA 

0,X 

STORE  CHAR  IN  RCCOW  BUFFER 

4204 

INX 

4205 

STX 

RTXPT 

4206 

CPX 

#ERTXB 

4207 

BNE 

IRSI 

4208 

LDAA 

#1 

SET  FOR  RCCOW  DATA  READY 

4209 

STAA 

RDRDY 

4210 

BRA 

IRSH 
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4211 

IRSG 

LDX 

CTXPT 

4212 

STAA 

0,X 

STORE  CHAR  IN  CCOW  BUFFER 

4213 

INX 

4214 

STX 

CTXPT 

4215 

CPX 

#ECTXB 

4216 

BNE 

IRSI 

4217 

LDAA 

#2 

SET  FOR  CCOW  DATA  RDY 

4218 

STAA 

CDRDY 

4219 

IRSH 

CLR 

RCFG 

4220 

IRSI 

RTI 

4221 

IRSJ 

CMPA 

#0A3H 

4222 

BNE 

IRSL 

4223 

LDX 

#SCTXB 

4224 

STX 

CTXPT 

4225 

LDAB 

#1 

4226 

IRSK 

STAB 

RCFG 

4227 

RTI 

4228 

IRSL 

CMPA 

#0A4H 

4229 

BNE 

IRSM 

4230 

LDX 

#SRTXB 

4231 

STX 

RTXPT 

4232 

LDAB 

#2 

4233 

BRA 

IRSK 

4234 

IRSM 

CMPA 

#0A9H 

4235 

BEQ 

IRSMA 

4236 

CMPA 

#0ABH 

WBR 

4237 

BEQ 

IRSMA 

WBR 

4238 

BRA 

IRSD 

WBR 

4239 

IRSMA 

TAB 

GET  RXINHB  BIT  2  FROM  A9/A11  BIT  2 

WBR 

4240 

ANDB 

#02H 

WBR 

4241 

STAB 

RXINHB 

WBR 

4242 

LDAB 

#3 

4243 

STAB 

RC3FG 

4244 

BRA 

IRSK 

4245 

IRSN 

LDAB 

RC3FG 

4246 

CMPB 

#3 

4247 

BEQ 

IRSQ 

4248 

CMPB 

#2 

4249 

BEQ 

IRSO 

4250 

TAB 

GET  RXINHB  BITS  4,3  FROM  BITS  7,6 

WBR 

4251 

RORB 

WBR 

4252 

RORB 

WBR 

4253 

RORB 

WBR 

4254 

RORB 

WBR 

4255 

ANDB 

#0CH 

WBR 

4256 

ORAB 

RXINHB 

WBR 

4257 

STAB 

RXINHB 

SEF 

4258 

ANDA 

#03FH 

REMOVE  RXINHB  BITS  BEFORE  USING 

WBR 

4259 

STAA 

BRATE2 

PORT  BIT  RATES  (3  &  4) 

4260 

TAB 

4261 

ANDB 

#7 

4262 

ANDA 

#038H 

4263 

ASLB 

4264 

ASLB 

4265 

ASLB 

4266 

STAB 

CHRAT3 

4267 

STAA 

CHRAT4 
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4268 

CLR 

RCFG 

4269 

CLR 

RC3FG 

4270 

RTI 

4271 

IRSO  TAB 

GET  RXINHB  BIT  0  FROM  BIT  6  WBR 

4272 

ROLB 

WBR 

4273 

ROLB 

WBR 

4274 

ROLB 

WBR 

4275 

ANDB 

#01H 

WBR 

4276 

ORAB 

RXINHB 

WBR 

4277 

STAB 

RXINHB 

SEF 

4278 

ANDA 

#0BFH 

REMOVE  RXINHB  BIT  BEFORE  USING  WBR 

4279 

STAA 

BRATEl 

PORT  BIT  RATES  (1  &  2) 

4280 

TAB 

4281 

ANDB 

#080H 

WBR 

4282 

STAB 

BPS16K 

4283 

TAB 

4284 

ANDB 

#7 

4285 

ANDA 

#038H 

4286 

AS  LB 

4287 

ASLB 

4288 

ASLB 

4289 

STAB 

CHRATl 

4290 

STAA 

CHRAT2 

4291 

IRSP  DEC 

RC3FG 

4292 

RTI 

4293 

IRSQ  STAA 

PTONRX 

PORT  ON  &  RX  ONLY  INFO 

4294 

BRA 

IRSP 

4295 

************ 

*********************************************** 

4296 

* 

4297 

*  LOAD  RX  ELASTIC  BUFFER  FOR  16  KBPS 

4298 

* 

4299 

STUFF  LDX 

#SBUFF1 

4300 

CLRB 

4301 

STUFA  STAA 

o,x 

4302 

INX 

4303 

INCB 

4304 

BNE 

STUFA 

4305 

RTS 

4306 

*************************** *****************************^*^ 

4307 

* 

4308 

INSERR  BRA 

INSERR 

BAD  INTERRUPT-  CRASH 

4309 

* 

4310 

*************************************** **************^^**** 

4311 

* 

4312 

*  PROGRAM  VERSION,  ROM 

CHECKSUM  VALUES,  AND  INTERRUPT  VECTORS. 

4313 

* 

4314 

****************************************************^***^** 

4315 

ORG 

0FFF5H 

4316 

PGMVRS  FCB 

4 

♦♦PROGRAM  VERSION^^ 

4317 

CKSMB  RMB 

1 

MSB  OF  CHECKSUM  -  BD.  PROGRAMMER  SUPPLIES  VALUE 

4318 

CKSMA  RMB 

1 

LSB  OF  CHECKSUM  -  SEE  98-P08293T  FOR  DETAILS. 

4319 

FDB 

IRS 

IRQ  VECTOR 

4320 

FDB 

INSERR 

SWI  ERROR 

4321 

FDB 

INSERR 

NMI  ERROR 

4322 

FDB 

PWRON 

RESTART  VECTOR 

4323 

* 

4324 

END  • 

PWRON 
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APPENDIX  E 


A.  DATA  BUFFER  PROCESSOR  LABEL  CROSS  REFERENCE 


Label  Name 

Defined 

On 

Referenced  On 

BITRAT 

642 

637  943 

BSERV 

2801 

2351  2385  2406  2524  2528  2566  2580  2662 
2684  2720  2740  2748  2757  2761  2765  2768 
2771  2775  2779  2783  2787  2791 

BSERVA 

2806 

2803 

BSERVB 

2821 

2807 

BSERVC 

2826 

2809 

BSERVD 

2832 

BSERVE 

2833 

2831  2835 

BSERVF 

2834 

2829 

BSERVG 

2843  2845 

BSERVH 

2853  2855 

BSERVI 

2868 

2863  2865 

2873  2875 

CKSMA 

CKSMB 

4317 

CLEAR 

116 

29  126 

CLEARA 

118 

120 

INIT 

68 

11  175 

INSERR 

4308 

lOlA 

988 

lOlAl 

989 

986 

I01A2 

992 

990  ■“ 

I01A3 

1025 

1023 

lOlAA 

1132 

1130 

10  IB 

1136 

1134 

lOlBA 

1144 

1147 

lOlBB 

1145 

1143 

lOlC 

1148 

lOlCA 

1152 

1141 

lOlD 

1149  1314 

lOlE 

1151 

1166 

lOlG 

HE^SH 

1342 

lOlH 

imggjm 

1161 

101  HA 

1212 

101 HB 

IkEttHi 

1215 

1011 

WH^m 

1219  1284 

lOlK 

1226 

1224 

145 


Label  Name 

IoTlf 

lOlLFl 

lOlLFA 

lOlLFB 

lOlLFC 

lOlLFD 

ToTls 

lOlLSA 

lOlLSB 

lOlLSX 

ToTm 

lOlNlO 

To1N2 

Io!N3 

IoTn4 

I01N5 

I01N6 

IoInt 

I01N8 

I01N9 

lolo 

lOlP 

loTpf 

lOlXP 

lOlXQ 

ioTy 

lOlYA 

lOlYAl 

lOlYB 

lOlYC 

lOlYCl 

101  YD 

101  YE 

lOlYEO 

lOlYEl 

lOlYF 

lOlYFA 

lOlYG 

lOlYH 

ioTyi 

ToTyj 


Referenced  On 


lOlYP 


lOlYQ 


102A 

1574 

102  A 1 

1435 

102BA 

102BB 

102C 

593 

589 

583  BB" 


I02DA 


I02FA 


I02LFC 


I02LFD 


I02LS 

I02LSA 


I02LSB 


IO2N10 


1848  1852  1858  1862  1866  1870  1874 

1882 


1521 

1523 

1525 

1531 

1535 

1544 

1678 

1721 

1683 

1726 

1688 

1731 

1693 

1701  1706 

1711 

1716 

1494 

1496 

1498 

1500 

147 


Label  Name 


1020 


I02P 


I02PT 


I02XQ 


I02Y 


I02YA 


I02YA1 


I02YB 


I02YC 

I02YC1 


I02YD 


I02YE 


I02YEO 


102  YE  1 


I02YG 


I02YH 


I02YI 


I02YJ 


I02YL 


I02YM 

I02YN 


I02Y0 


I02YP 


I02YQ 


I03A 


I03B 


I03BA 


I03BB 


Defined 

On 


Referenced  On 


163  1 

1167 

377  ] 

386 

412  1 

1416 

199  1209  1291 
390  1394  1397 
420  1424 

1687  1692  1696  1700  1705  fTlO 
1720  1725  1730  1732  1735 


892 

1 

895 

1 

Label  Name 


I03C 


I03D 


I03DA 


I03E 


I03F 


I03FA 


I03FB 


I03G 

I03GA 


I03GB 


I03LF1 


I03LFA 

I03LFB 


I03LFC 


Deflned 

On 


29 

33  ^98" 


2309  2315  2319  2323  2327  2331 


1971 


1976 

1978  1980  i98r 


1988  1992 


ERTm 


2140  2145  2150  2158  2163  2168  2173 

2183  2188 

1955  1957 


I03LSX 


I03P 

2193 

I03PT 

1887 

I03XP 

2199 

149 


Label  Name 
I03Y 
I03YA 


Defined 

On 


Referenced  On 


103  YAl 

I03YB 

I03YC 

103  YCl 

I03YD 

I03YE 

IO3YE0 

I03YE1 

I03YF 

I03YFA 

I03YG 

I03YH 

I03YI 

I03YJ 

I03YK 

I03YL 

I03YM 

I03YN 

I03Y0 

I03YP 

I03YQ 

l04A 

I04A1 

I04A2 

I04A3 

I04AA 

l04B 

I04BA 

I04BB 

I04C 

I04CA 

I04D 

I04DA 

!04E 

I04F 

I04FA 

I04FB 

I04G 

I04GA 

I04GB 

I04H 

I04HA 

I04HB 

l04i 


2206 

■2228 

■2232 

"2229 

1244 

1252 

1257 

12M 

■^83 

1284 

1292 

1299 

IsoT 

1305 

1309 

1312 

IsTJ 

IJW 

1323 

IsTf 

1331 

l33l 

"2331 

Im 

l34l 

1352 

138T 

1^ 

149^ 

1504" 

IM' 

IW 

i5ir 

252^ 

IsIT 

1525" 

1529" 

l55r 

■255^ 

■25^ 

IstT 

IstT 

IssT 

IssT 

IssT 

15^ 


2034 

2217 

1117 

22OT 


2290 

1M7 

12« 

1177 

l004 

2258 

22% 


2348 

l3^ 

1350 

1383 

14% 

1494 

1507 

1503 

1497 

15^ 

15W 

isir 

IsTT 

l5lf 

154^ 

"Hsl 

ItTT 

IW 

2570 

IW 

IW 

IW 

IW 


2038 

2230 


2298 

1231 


2287 

IW 


2499 


2685 


2655 
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Label  Name 

Defined 

On 

Referenced  On 

I04K 

2597 

2595 

I04LF 

2425 

2758  2762  2766  2772  2776  2780  2784  2788 

2792  2795 

I04LF1 

2431 

2428 

I04LFA 

2438 

2433 

I04LFB 

2441 

I04LFC 

2455 

I04LFD 

2462 

2458 

I04LS 

2390 

2592  2597  2602  2607  2615  2620  2625  2630 

2635  2640  2645 

I04LSA 

2413 

2408 

I04LSB 

2416 

2410  2412  2414 

I04LSX 

2407 

2397 

I04M 

2600 

IO4N10 

2643 

I04N2 

2607 

2605 

I04N3 

2609 

I04N4 

2613 

I04N5 

2620 

2618 

I04N6 

2625 

2623 

I04N7 

2630 

2628 

I04N8 

2633 

2638 

2647 

2587 

I04P 

2650 

I04PT 

2344 

1894  1928  1949  2067  2071  2109  2123  2205 
2227  2263  2283  2291  2300  2304  2308  2311 
2314  2318  2322  2326  2330  2334  2338 

I04XP 

2656 

2591  2596  2601  2606  2610  2614  2619  2624 

2629  2634  2639  2644  2646  2649 

I64XQ 

2657 

I04Y 

2663 

2491  2495 

I04YA 

2685 

2674  2687 

I04YA1 

2689 

2584 

104  YB 

2686 

2664 

I04YC 

2701 

I04YC1 

2747  2755 

I04YD 

2504  2688 

I04YE 

2719 

IO4YE0 

2734  2744 

104  YE  1 

2741 

2461  2750 

I04YF 

2715 

104  YFA 

■sttH 

2753 

I04YG 

2758 

I04YH 

2762 

I04YI 

2766 

151 


Label  Name 


I04YJ 


104  YK 


104  YL 


104  YM 


104  YN 


IRSK 


IRSL 


IRSM 


IRSMA 


LD4 


PGMVRS 


PWRON 


PWRONl 


RAMERR 


RAMT 


RAMTST 


RBI 


RBIIC 


RBI  IDA 


RBIIE 


RBIIG 


Label  Name 

Defined 

On 

Referenced  On 

RBIIGA 

271 

RBI  1GB 

284 

278 

RBIIH 

293 

266  283 

RBIIHI 

294 

263 

RBI  1  HA 

303 

297 

RBIIHB 

307 

302 

RBI2B 

313 

223 

RBI2C 

316 

314 

RBI2CA 

319 

317 

RBI2D 

323 

321 

RBI2DA 

332 

328 

RBI2E 

333 

325 

RBI2EA 

343 

338 

RBI2G 

355 

336 

RBI2GA 

362 

RBI2GB 

377 

369 

RBI2H 

386 

357  376 

RBI2H1 

387 

354 

RBI2HA 

396 

390 

RBI2HB 

400 

395 

RBI3B 

406 

315 

RBI3C 

409 

407 

RBI3CA 

412 

410 

RBI3D 

416 

414 

RBI3DA 

425 

421 

418 

gggggimiiin 

431 

RBI3G 

448 

429 

RBI3GA 

455 

RBI3GB 

462 

RBI3H 

450  469 

RBI3H1 

480 

447 

RBI3HA 

489 

483 

RBI3HB 

488 

RBI4B 

408 

RBI4C 

500 

RBI4CA 

|[|||||||[g^||||[||^ 

503 

RBI4D 

509 

507 

RBI4DA 

514 

RBI4E 

519 

511 

RBI4EA 

529 

524 

RBI4G 

541 

522 

RBI4GA 

548 

RBI4GB 

563 

555 

RBI4H 


.572 


543 


562 


Label  Name 

Defined 

On 

Referenced  On 

RBI4H1 

573 

540 

RBI4HA 

582 

576 

RBI4HB 

586 

581 

RBIA 

RBIB 


RBIBA 


RBIJ 


RBIJA 


K 


RBIKA 


RBIL 


RBIM 


RBIN 


RBIO 


RBIS 


RBISA 


RBISB 


RBISD 


RBISE 


RBIU 


ROMERR 


ROMTSA 


ROMTST 


SERVE  1 


SERVF2 


SERVES 


SERVGl 


SERVG2 


SERVG3 

SERVHl 


SERVH2 


SERVH3 


SERVIl 


SERVO 


SERVI3 


SETUP 


SETUP 1 


SETUPS 


F 


SIFl 

SIF2 

S!F3 


637 

311  404  497  590 

651 

647 

656 

652 

661 

657 

666 

662 

671 

667 
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Label  Name 

Defined 

On 

R 

SIF3A 

3769 

3766 

3768 

SIF5 

3778 

3759 

SIF6 

3780 

3753 

SIFA 

3783 

3747 

SIFAl 

3855 

3853 

SIFA  1 A 

3836 

3786 

SIFA  IB 

3845 

3841 

SIFA  1C 

3842 

3838 

SIFA2 

3862 

3860 

SIFB 

mggjuii 

3868 

SIFBl 

3872 

SIFB2 

3879 

SIFC 

3889 

3887 

SIFCl 

3891 

SIFC2 

3898 

SIFD 

HES&SH 

3906 

SIFDl 

3912 

3910 

SIFD2 

3919 

3917 

SIFE 

3927 

3925 

giyuimiiiii 

3931 

3929 

SIFE2 

3938 

3936 

SiFF 

3946 

3944 

SIFFl 

3948 

3957 

3955 

3965 

3963 

SIFGl 

3969 

3967 

SIFG2 

3976 

3974 

3984 

3982 

SIFHl 

3988 

3986 

3995 

3993 

4003 

4001 

SIFIl 

SIFI2 

jjUjjgQmii 

4012 

4041 

4039 

4045 

4043 

4052 

4050 

SIFK 

4058 

4062 

4071 

4069 

SIFL 

4077 

ggygigilllllll 

4083 

4081 

4090 

4088 

mgQ^iiiiiiii 

4096 

155 


eferenced  On 


Label  Name 


SIFM2 


SOFA 


SOFAA 


SOFB 


SOFBl 


SOFB2 


SOFB3 


SOFB4 


SOFB5 


SOFB6 


SOFBA 


SOFBB 


SOFBC 


SOFBD 


SOFBE 


SOFBF 


SOFBG 


Label  Name 

Defined 

On 

Referenced  On 

SOFBH 

2963 

2960 

SOFBI 

2967 

2964 

SOFBJ 

2972 

2969 

SOFBK 

2976 

2973 

SOFBL 

2981 

2978 

2982 

SOFBN 

2987 

SOFBO 

2994 

2991 

SOFBP 

2999 

2996 

SOFBQ 

3003 

3000 

SOFBR 

3008 

3005 

SOFBS 

3012 

3009 

SOFBT 

3017 

3014 

SOFBU 

3018 

SOFBV 

3023 

SOFBW 

3030 

3027 

SOFBX 

3032 

SOFBY 

SOFBZ 

3044 

3041 

SOFC 

3072 

3612 

SOFCA 

3075 

3073 

SOFCB 

3082 

3076 

SOFCC 

3088 

SOFCD 

3096 

3081  3092 

SOFD 

3101 

3099 

SOFDA 

3103 

SOFDB 

3106 

SOFDC 

HggHU 

3118 

SOFDD 

IIIIIIIIIBSU£llllli 

3111  3122 

SOFE 

3131 

3129 

SOFEA 

3133 

SOFEB 

3142 

3136 

SOFEC 

3150 

3148 

SOFED 

3156 

SOFF 

3161 

3159 

SOFFA 

3165 

3163 

SOFFB 

3172 

SOFFC 

3180 

3178 

SOFFD 

3186 

3171  3182 

SOFG 

3191 

3189 

SOFGA 

3195 

3193 

SOFGB 

3196 

SOFGC 

m^giiii 

3208 

SOFGD 

3216 

3201  3212 

SOFH 

3221 

3'219 

157 


Label  Name 
SOFHA 
SOFHB 
SOFHC 
SOFHD 
fSOFi 
SOFIA 
SOFiB 
SOFIC 
SOFID 
SOFJ 
SOFJA 

sofJb 

SOFJC 

SOFJD 

SOFiC 

SOFKA 

SOFKB 

SOFKC 

SOFKD 

SOFL 

SOFLA 

SOFLB 

SOFLC 

SOFLD 

SOFM 

SOFMA 

SOFMB 

SOFMC 

SOFMD 

SOFN 

SOFNA 

SOFNB 

SOFNC 

SOFND 

SOFO 

SOFOA 

SOFOB 

SOFOC 

SOFOD 

SOFP 

SOFPA 

SOFPB 

SOFPC 

SOFPD 

SOFQ 


Label  Name 

Defined 

On 

Referenced  On 

SOFQA 

3495 

3493 

SOFQD 


SOFRB 


SOFRC 


SOFRD 


m 


FYEl 
S0FYF“ 
SOFYFl 


SOFYG 


SOFYGl 


SOFYH 


SOFYHl 

SOFYI 


SOFYIl 


SOFYJ 

SOFYJl 


SOFYK 


3522 


3525 


37 

30  3541 


SOFYDl 

3639 

3636 

SOFYE 

3643 

3641 
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Label  Name 


SOFYMl 


SOFYN 


SOFYNl 


SOFYO 


SOFYOl 


SOFYP 


SOFYPl 


SOFYQ 


SOFYXX 


STUFA 


STUFF 


TBI 


TBI2EA 


TBI2F 


TBI3 


TBI3B 


TBI3BA 


TBI3E 


TBI3EA 


TBI3F 


TBI4 


TBI4B 


TBI4BA 


TBI4E 


TBI4EA 


TBI4F 


TBIA 


TBIB 


TBIBA 


TBIGl 


TBIGA 


TBIGB 


TBIGC 


TBIH 


Defined 

On 

3711 


37 


3719 

3723 


Referenced  On 


Label  Name 


TBIHA 

TBIHB 


Defined 

On 


921 

925 


Referenced  On 


TBIHC 

TBIJ 

TBIK 


TBIN 

TBIO 


TBIQ 


TBIQl 


847  885 


TBIR 

TBIRA 
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